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‘ DISCLAIMER OF WARRANTIES AND LIMITATION OF LIABILITIES 


The authors have taken due care in preparing this book and the programs in it, including 

research, development, and testing to ascertain their effectiveness. The authors and 

publishers make no expressed or implied warranty of any kind with regard to these programs —, 

nor the supplementary documentation in this book. In no event shall the authors or 

publishers be liable for incidenta! or consequential damages in connection with or arising out 
.of the furnishing, performance or use of any of these programs. 
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Introduction 


: This book describes a number of programs, written in the BASIC’ programming language. These pro- 
grams perform a variety of common. practical tasks. The programs are written in a restricted subset of stan- 
dard BASIC that is compatible with many versions of BASIC now available to microcomputer users. 


You can use this book whether or not you know how to write programs in BASIC. 


We do not teach you how to program in BASIC; there are probably hundreds of books trying to do 
that. But we do describe progams carefully and include user examples with the program listings. So if you 
are not familiar with BASIC, simply copy the program listings into your computer; then run the programs 
as illustrated tn the examples. 


Remarks are included in the listings to help BASIC programmers understand how each program 
works. They will aiso assist you in identifying parts of programs that you may be able to use in other pro- 
grams you write. Remark statements precede the line(s) on which they comment. REM statements should be 
omitted when you enter programs, since they are ignored by the computer and simply use up memory. 


Options are also included with some programs. An option is an alteration which changes the input or 
output format of the original program. Options may suggest ways in which you can further alter the pro- 
grams. We have included a brief description. example, sample run and partial listing of each option. The 
partial listing includes those program statements which are changed when going from the original pro- 
gram to the optional program. Lines which must be altered, added or deleted are shaded in both listings. 


_ All programs can be run using a Teletype” or similar input/output device with a line width as short as 
72 characters. If the line width on your output device is less than 72 characters, you may want to alter the 
print statements within programs that print longer lines. 


Certain programs will require additional programming if you use a CRT display or separate printing 
device for output. if using a CRT, you will probably want to put a pause in some programs after displaying 
one screenfui of data: otherwise, the data will be displayed faster than you can read it. If using a separate 

” printing device for your output, you may need to add print device select statements to the programs. 


: All programs in this book have been tested, run and listed on a Wang 2200 computer system. They 
have also been tested and run on a Commodore PET®. Some of this testing was with programs modified for 
better efficiency on the PET. 


BASIC Compatibility 


Readers of the first and second editions of this book have helped locate typographical and program- 
ming errors and have informed us of some compatibility problems for users with different BASICs. For this 
third edition we have done some reprogramming to eliminate errors and he!p solve the compatibility prob- 
lems. Even so, you should be aware of some general compatibility problems which may occur. 


1} Some programs may branch out of a FOR/NEXT foop before its iteration is complete. H branching out 
in the middie of a FOR/NEXT toop causes an error in your BASIC, you can change the FOR/NEXT loop 
at that point to branch to the NEXT statement. avoiding any program statements which woutd alter 
other variable values as the loop completes itself. 


2) When a FOR/NEXT toop is completed, the index variable should remain set to its highest value when 
the progam resumes after the loop. For example. in the following program the vaiue of | at line 30 
should be 10. 


10 FOR t= 1 70 10 
20 NEXT | 
30 PRINT f 


“IBASIC is a registered trademark of the Trustees of Dartmouth College. 
2Teletype is a registered trademark of the Teletype Corporation. 
“SPET is a registered trademark of Commodore. inc. 
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Introduction 


This book describes a number of programs. written in the BASIC' programming language. These pro- 
* grams perform a variety of common, practical tasks. The programs are written in a restricted subset of stan- 
dard BASIC that is compatible with many versions of BASIC now available to microcomputer users. 


You can use this book whether or not you know how to write programs in BASIC. 


We do not teach you how to program in BASIC; there are probably hundreds of books trying to do 
that. But we do describe progams carefully and include user examples with the program listings. So if you 
are not familiar with BASIC, simply copy the program listings into your computer; then run the programs 
as illustrated in the examples. 


Remarks are included in the listings to help BASIC programmers understand how each program 
works. They will also assist you in identifying parts of programs that you may be able to use in other pro- 
grams you write. Remark statements precede the line{s) on which they comment. REM statements should be 
omitted when you enter programs, since they are ignored by the computer and simply use up memory. 





Options are also included with some programs. An option is an alteration which changes the input or 
output format of the original program. Options may suggest ways in which you can further alter the pro- 
grams. We have included a brief description, example, sample run and partial listing of each option. The 
partial listing includes those program statements which are changed when going from the original pro- 
gram to the optional program. Lines which must be altered, addea or deleted are shaded in both listings. 


| 


All programs can be run using a Teletype” or similar input/output device with a line width as short as 
72 characters. lf the line width on your output device is less than 72 characters, you may want to alter the 
print statements within programs that print longer tines. 


Certain programs will require additional programming if you use a CRT display or separate printing 
- device for output. !f using a CRT, you will probably want to put a pause in some programs after displaying 
one screentul of. daia; otherwise, the data will be displayed faster than you can read it. lf using a Separate 

- printing device for your output, you may need to add print device select statements to the programs. 


All programs in this book nave been tested, run and listed on a Wang 2200 computer system. They 
have also been tested and run on a Commodore PET*. Some of this testing was with programs modified for 
better efficiency on the PET. 


BASIC Compatibility 


Readers of the first and second editions of this book have helped locate typographical and program- 
ming errors and have informed us of some compatibility problems for users with different BASI!Cs. For this 
third edition we have done some reprogramming to eliminate errors and help solve the compatibility prob- 
lems. Even so, you should be aware of some general compatibility problems which may occur. 
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1) Some programs may branch out of a FOR/NEXT loop before its iteration is complete. If branching out 
in the middle of a FOR/NEXT loop causes an error in your BASIC, you can change the FOR/NEXT foop 
at that point to branch to the NEXT statement. avoiding any program statements which would alter i 
-other variable values as the loop completes itself. 


2) Whena FOR/NEXT loop is completed. the index variable should remain set to its highest value when 
the progam resumes after the foop. For example. in the following program the value of | at line 30 
should be 10. | 


10 FORI| =1 TO 10 
20 NEXT | 
30 PRINT i 
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TBASIC is a registered trademark of the Trustees of Dartmouth College. 
2Teletype is a registered trademark of the Teletype Corporation. 
~ SPET is a registered trademark of Commodore, Inc. 
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Your BASIC may say | = 11 at line 30. To fix this, add a new line after the NEXT statement to decre- 
ment the index variable by one. In the above program, add the following: 
251=1-1 


If you have a BASIC which does not have a FOR/NEXT index variable keep its value outside the loop, you 
will have to set the variable equal to the end value of the loop once outside the loop {you need to do this 
only if that index variable value is used later in the program). 


3) One variation of the RESTORE command is RESTORE n, where n refers to the nth item on the data list. 
- and this nth item is to be read in the next READ statement. If your BASIC does not accept RESTORE n, 
change that part of the program to RESTORE, then ioop to read data to the nth item. 


4) lf your BASIC does not set all variables to zero for each RUN (unless another value is specified in a 
“ statement), then you will have to write statements to initialize each variable to zero at the beginning of 
each program. . 


5) Some programs use DEF ENR (). If not implemented, substitute this expression (with appropriate varia- 
ble) for each callout of FNR. 


6) Some programs use the TAB function with the PRINT statement. You can usually replace it with a 
string of blanks of the appropriate length. For instance, PRINT TAB (5); Al could be PRINT“; Al. 
Program Errors 


If you encounter an error or program difficulty which you believe is not your fault. we would like to 
hear about it. Please write the authors in care of the publishers, and include the foliowng information: 


1) description of the error 
2) data entered which caused the error 
3) source listing of your program, from your computer (if possible) 
4) any corrections you have 
We appreciate your help in creating a book of tested BASIC programs that anyone can use. 
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Future Value of an Investment 


This program calculates a future value of an investment when interest is a factor. You must provide the 
amount of the initial investment, the nominal interest rate, the number of compounding periods per year and the 
number of years of investment. ; 

Assuming there are no additional deposits and no withdrawals, the future value is based on the following 
formula: . 

T=P(tt+i/nyNeY 


where: 7 


= total value after Y years (future value) 
P = initial investment 
i = nominal interest rate 
N = number of compounding period per year 
Y = number of years 


Examples: 
Cari makes an investment of $6800.00 at 9.5%. If interest is compounded quarterly, what will be the value 
of Cart’s investment in 10 years? 


Mir. Smith purchases a piece of property for $16,050.00. The value of property Is sing at an average of 7% 
per year. What may Mr. Smith expect his property to be worth in 51/2 years? 


> RUN 
FUTURE VALUE OF AN INVESTMENT... 


INITIAL INVESTMENT? 6800 

NOMINAL INTEREST RATE? 9.5 

NUMBER OF COMPOUNDING PERIODS PER YEAR? 4 
NUMBER OF YEARS? 10 
FUTURE VALUE=% 17388 .64 


MORE DATA? (1=VES,0=NO)? 1 


INITIAL INVESTMENT? 16050 


NOMIMAL INTEREST RATE? 7 
NUMBER OF comPoUnMDING PERIODS PER YEAR? i 


NUMBER OF VEARS? &.5 
FUTURE VALUE=% e3285.51 


MORE DATA? (1=VES,0=NQ)? 0 


END PROGRAM 


PROGRAM LISTING 


10 PRINT "FUTURE VALUE GF AN INVESTMENT” 

20 PRINT 

29 REM - STATEMENTS 30 TO 100 REQUEST USER INPUT 
30 PRINT "INITIAL INVESTMENT"; 

40 INPUT P | 

50 PRINT “NOMINAL INTEREST RATE"; 





| 
| 
: 
| 
| 
| 
| 
i 
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60 INPUT I 
70 PRINT "NUMBER OF COMPOUNDING PERIODS PER YEAR"S 
80 INPUT _N 

P90 PRINT "NUMBER OF bans 

(100 - INPUT_Y .. 

108 REM ~ CALCULATE INTEREST RATE PER PERIOD; 

109 REM ~- CONVERT FROM PEXCENT TO DECIMAL 

110 I=1/N/100 

119 REM ~ CALCULATE FUTURE VALUE BY FORMULA 

120 T=P#(14+1) + (N#Y) 

129 REM ~ ROUND OFF TO NEAREST CENT, PRINT 

130 PRINT "FUTURE VALUES®"3; INT(T#100+.5)/100 

139 REM ~ PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION 

140 PRINT | 

149° REM - RESTART GR END #ROGRAM? USER INPUT REQUIRED 
150 PRINT "MORE DATA? (1=VES,0=NO)"; 

160 INPUT X - 

170 IF X=1 THEN 20 

180 END 
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OPTION | 


This program allows you to enter a term of investment in whale years or decimal parts only. in some cases 
you may wish to enter the term of investment in years and months rather than just years. The program changes 
necessary foilow the example listed below. 


Exampie: 


Herb invests $12.0 000.00 at 6% interest. interest is compounded quarterly. What is the value of his invest- 
ment at the end of 10 years and 7 months? 


5 RUM 
FUTURE VALUE OF AN INVESTMENT 


INITIAL INVESTMENT? 12000 

NOMINAL INTEREST RATE? & 

HUMBLE OF COMPOUNDING PERIODS PER YEAR? 4 
NUMBER OF YEARS, MONTHS? 10,7 

FUTURE VALUE=% @7749,.5 


MORE DATA? (1=YES,0=NO)? O 


END PROGRAM 


PROGRAM LISTING 


i REM ~ OPTION 90-105 
- PRINT “FUTURE VALUE OF AN INVESTMENT" 


€0 INPUT N pete eee 
90 PRINT "NUMBER OF “YEARS 1 MONTHS "5 o3 4 
-100.- INPUT YO,M 
104 REM ~ CALCULATE VEARS FROM VEARS AND MONTHS: 
105 - Y=(128Y0+M) /12 : oes 
“408 REM - CALCULATE INTEREST RATE PER PERIOD; 





180 END 








RN 
Future Value of Reqular Deposits (Annuity) | 


a a 


This program calculates a future value when deposits are made regularly. All deposits are equal. You must 
provide the amount of each deposit, the number of deposits per year, the number of years, and the nominal in- 


terest rate. 





Assuming that interest is compounded with each deposit, the calculation is based on the following formula: 


a (14+7/N)NeY¥A4 
ren ( i/N ) 


where: T = total value after Y years (future value) 
- R = amount of regular deposits 
N = number of deposits per year 
Y = number of years 
i = nominal interest rate 


Examples: . 
$50.00 is transferred each month from Matt's checking account to a Christmas Club savings account with 
5% interest. How much will Matt receive at the end of the year? 


Tim makes annuity payments of $175.00. The interest is 5.576. What amount will Tim have accumulated in 
15 years? 


sRUN ; 
FUTURE VALUE OF REGULAR DEPOSITS (ANNUITY) 


AMOUNT OF REGULAR DEPOSITS? 50 
NOMIMWAL INTEREST RATE? S 

NUMBER OF DEPOSITS PER VEAR? 1c 
NUMBER OF YEARS? 1 

FUTURE VALUE = $ 613.94 


MORE DATA? (1L=VES, O=NO)? 1 


AMOUHT OF REGULAR DEPOSITS? 175 
NOMINAL INTEREST RATE? 5.5 
NUMBER OF DEPOSITS PER YEAR? 1 
NUMBER OF YEARS? 15 

FUTURE VALUE = % 3921.52 


MORE DATA? (L=VES, O=NQ)? 0 


END PROGRAM 


PROGRAM LISTING 


10 PRINT "FUTURE VALUE OF REGULAR DEPOSITS (ANNUITY)®" 
ZO PRINT 
‘29 REM - STATEMENTS SO TO 100 REQUEST USER INPUT 

20 PRINT “AMOUNT OF REGULAR DEPOSITS"; 

40 INPUT R 

S50 PRINT "NOMINAL INTEREST RATE"S 


o> 
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180 


IWPUT I 
PRINT “NUMBER OF DEPOSITS PER YEAR"; 


_ INPUT hi _. 
PRINT "NUMBER OF YEARS "5 | 
_ INPUT Y | : 


REM ~ CALCULATE INTEREST ‘RATE PER DEPOSIT, 

REM - CONVERT FROM PERCENT TO DECIMAL 

T=I/N/100 

REM - CALCULATE FUTURE VALUE BY FORMULA 

TSREC CLIFT IS CNEY)-LI/IT 

REM — ROUND OFF TQ NEAREST CENT, PRINT 

PRINT “FUTURE VALUE = #"; INT(T#1004+.5)/100 

REM - PRINT BLANK LINE vO SEPARATE DATA FROM GUSSTION 
PRINT 

REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 
PRINT "MORE DATA? (1=VES, O=NO)"; 

INPUT X 

IF X=1 THEN 20 

END 


a NS TI 


OPTION 


You may wish to enter the term of investment in years and rnonths rather than years. The program changes 
necessary are listed following the example below. 


Example: 


How much will Ron receive in 10 years and 5 months if he transfers $50.00 each month into a trust fund 
with 5% interest? 


+ RUN 


FUTURE VALUE OF PEGULAR DEPOSITS (ANNUITY) 


AMOUNT OF REGULAR DEPOSITS? 59 
NOMINAL INTEREST RATE? S 
NUMBER OF DEPOSITS PER YEAR? 12 
NUMBER OF YEARS, MONTHS? 10,5 
FUTURE VALUE = @ 8179.31 


MORE DATA? (1=VYES, O=NO)? 0 


END PROGRAM 


_ PROGRAM LISTING 


10° 


Pee 


F100 


x 


106 


180 


80. 
& 90 - 


104 
1105 


REM - GPTION 90-105 
PRINT "FUTURE VALUE OF REGULAR DEPOSITS (ANNUITY)" 


IT IN ones Sle cteig ieala teniceeeets Ss ihc folate a ents 
PRINT "NUMBER OF YEARS, MONTHS”: a ee 
INPUT YO,M | 5 
REM - CALCULATE YEARS FROM YEARS AND MONTHS , 
Y=(1B*YO+M) /12 gems 


REM - CALCULATE INTEREST RATE PER. DEPOSIT, 


END 
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Regular Deposits 








This program calculates the amount required as a regular deposit to provide a stated future value ina 
specified time period. All deposits are equal. It is necessary for you to supply the future value, the nominal in- 
terest rate, the number of deposits per year and the number of years. . 


The catculation for regular deposits is based on the following formula: 


i/N 
R=T ( ————— 
Gera, 


where: A = amount of regular deposit 
T = future value 
f = nominal interest rate 
N = number of deposits per year 
Y = number of years 


Example: 2 Be ce 
Mary would like $1000.00 at the end of one year in a savings account. How much must she deposit each 
month at 8% interest to achieve this? 


2 RUM 
REGULAR DEPOSITS 


TOTAL VALVE AFTER Y YEARS? 1090 
NOMIHAL INTEREST RATE? 8 
NUMBER OF DEPOSITS PER YEAR? 12 
NUMBER OF YEARS? i 

REGULAR DEPOSITS = # 80.32 


MORE DATA?(1=VYES,0=NO)? 0 


ENMU PROGRAM 


PROGRAM LISTING 


10 PRINT "REGULAR DEPOSITS" 


20 PRINT 
29 REM - STATEMENTS 30 TO 160 REQUEST USER INPUT 


30 - PRINT "TOTAL VALUE AFIER VY YEARS"; 
40 -INPUT T 
- 50 - PRINT "NOMINAL INTEREST RATE"; 
60 INPUT I 
70 PRINT “HUMBER OF DEPOANITS PER YEAR"; 
80 INPUT N 
939). PRINT "HUMEER OF VEARK"S 
100 INPUT VY _ a | 
‘108 - PEM -— CALCULATE INTEREST RATE PER DEPOSIT: 
109 REM - CONVERT FROM PERCENT TO DECIMAL 
110 - T=I/N/100 


119 REM - CALCULATE AMOUNT OF REGULAR DEPOSIT BY FORMULA. 
A120 RETEI/(CCI+L VS CNRY) 1) 
129 REM - ROUND OFF TO-NEAREST CENT, PRINT 
130 PRINT “REGULAR DEPOSITS = $";INT(R#¥100+.5)/100 
133 REM ~- PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION 
140 PRINT 
149 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 
150 PRINT "MORE DATA? (1=YES, Q=NO) "Ss 
160 INPUT X 
4170) «#IF X=1 THEN 20 
180 END 


OPTION 


You may wish to enter the term of investment in years ang months rather than years. The program changes 
necessary are listed following the example below. 


Example: 


Ed would like to save $2000.00 for a new motorcycle. He would like to achieve this amount in 1 year and 5 
months. How much must he deposit each month if his interest is 8%? 


s RUN 
REGULAR DEPOSITS 


TOTAL. VALUE AFTER Y YEARS? 20900 
NOMINAL INTEREST RATE? 8 
NUMBER OF DEPOSITS PER VEAR? 1e 
NUMBER OF YEARS, MONTHS? 1,5 
REGULAR DEPOSITS = # 111.5 


MORE DATA? (1 =VES,0=NO)? 0 


END PROGRAM 


PROGRAM LISTING 


1 REM - OPTION 90-105 
10 PRINT "REGULAR DEPOSITS" 


8 0 ‘ INPUT N LAMAR TOTES, MRE SECU IESTE, ADORE Rat ote 
» 90 PRINT "NUMBER | OF YEARS » “MONTHS” 3 OR 
100 - INPUT VO,M “4 
“104 REM ~ CALCULATE YEARS FROM YEARS AND MONTHS . 
A05S : YE(LESVO4HMI/12A 9. 
408 REM - CALCULATE INTEREST RATE PER DEPOSIT; 






180 - END 


o 
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Regular Withdrawals from an Investment 


er 


This program calcuiates the maximum amount which may be withdrawn regularly from an investment over 
a specified time period. Ail withdrawals are assumed to be equal. You rnust provide the amount of the initial in- 
vestment, the nominal interest rate, the number of withdrawals per year and the number of years. 


The maximum amount of withdrawals is calculated by the following formula: 


i/N -) 
R=P (————————- + — 
fremree N 


amount of regular withdrawal 
initial investment 

nominal interest rate 
number of withdrawals per year 
number of years 


where: A 


N 
Y 


HRW E SH 


Because this program calculates a maximum amount, a balance of $0.00 will be left in your account at the 
end of the time period. You may withdraw any lesser amount under the same specifications and leave a remain- 
ing balance in your account. 


Example: 
David invests $8000.00 at 9.5%. He plans to make regular withdrawals every month for ten years, leaving 
nothing et the end. How much should he withdraw each time? 


s RUN 


REGULAR WITHDRAWGALS FROM AN INVESTMENT 


INITIAL INVESTMENT? 8000 

HOMIHAL INTEREST RATE? 9.5 

NUMBER OF WITHDRAWALS PER YEAR? 1é& 
NUMBER OF YEARS? 10 

AMQUNT OF EACH WITHDRAWAL = $ 103.52 


MORE DATA?(1=VES,0=NO)? 9 


END PROGRAM 


PROGRAM LISTING 


10 
20 
25 
30 


PRINT 
PRINT 
REM - 
PRINT 
INPUT 
PRINT 
INPUT 
PRINT 
ENPUT 


~ PRINT 
) ANPUT 


"REGULAR WITHDRAWALS FROM AN INVESTMENT" 


STATEMENTS 30 TO 100 REQUEST USER INPUT 
“INITIAL INVESTMENT"; 

Cie NEL INTEREST RATE"; 

a UMEER OF WITHURAWALS PER YEAR"; 
"HUMBER OF YEARS _ . 


yer, 


108 REM ~- CALCULATE INTEREST RATE PER. WITHDRAWALS 
109 REM - CONVERT FROM-PERCENT TO DECIMAL 


110 I=L/N/100 


119 REM - CALCULATE REGULAR WITHDRAWAL BY FORMULA 
120 REPH(LT/ (C14 DF (NFY D1 )4T) 
129 REM - ROUND OFF TO-NEAREST CENT, PRINT 
130 PRINT "AMOUNT OF EACH WITHDRAWAL = @"5 INT(R*®100¢.5)/100 
139 REM - PRINT BLANK LINE TO SEPARATE QUESTION FROM DATA 


140 PRINT 


149 REM - RESTART OR END PROGRAM? 
150 PRINT “MORE DATA? (1=YES,0=NQO) "5 


160 INPUT X 


170 IF X=1 THEN 20 


i980 END 


eee eee irr 


OPTION 


It may be more convenient to enter the period of investment in years and months rather than just years. The 
' program changes necessary are listed following the example below. 


Example: 


‘How much could be withdrawn each week if you have an investment of $8000.00 at 9.5% interest to be 
withdrawn from for 10 years and 5 months? 


o RUN 


REGULAR WITHDRAWALS FROM AN INVESTMENT 


INITIAL INVESTMENT? 8000 

NOMIHAL INTEREST RATE? 9.5 

NUMBER DF WITHDRAWALS PER YEAR? Se 
NUMBER OF YEARS, MONTHS? 10,5 
AMOUNT OF EACH WITHDRAWAL = $ ea. 28 


MORE DATA? (1=VES,0=NQ)? 0 


END PROGRAM 


PROGRAM LISTING 


1 REM - OPTION 90-105 
10 PRIN] "REGULAR WITHDRAWALS FROM AN INVESTMENT" 


THPUT N 


90° PRINT “NUMBER OF ‘YEARS + 


: INPUT YO,M 





END 
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4 REM ~ CALCULATE: YEARS FROM YEARS AND MONTHS | 
5 VR(ABHYOHMI/12 | 
REM - CALCULATE INTEREST RATE PER WITHDRAWAL $ 
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Initial Investment 


This program calculates the investment necessary to provide a stated future value in a specified time period. 
You must enter the future value of the investment, the number of years of investment, the number of compound- 
ing periods per year and the nominal interest rate. 


The formula used to calculate the initial investment is as follows: 
T 
(1+4s/N)NOY 


initial investment 

future value 

number of compounding periods per year 
number of years 

nominal interest rate 


v 
I 


~<S2Qn4v 
et tt 


Examples: 
How much must you invest at &.5% to produce $10,000.00 at the end of 10 years if interest is compounded 
quarterly? 


Merchant Savings wishes to sell a bond which will be worth $5000.00 five years from the purchase date. In- 
terest will be 7.9% compounded daily. How much must the bank charge for the bond? 


+ RUN 
INITIAL INVESTMENT 


TOTAL VALUE AFTER Y YEARS? 10900 

NUMBER OF COMPOUNDING PERIODS PER YEAR? 4 
HUMBER OF YEARS? 10 

NOMINAL INTEREST RATE? 8.5 

INITIAL INVESTMENT = # 4312.33 


MORE DATA? (1=VES,0=NO)? i 


TOTAL VALUE AFTER Y YEARS? 5090 

NUMBER OF COMPOUNDING PERIODS PER YEAR? 365 
NUMBER OF YEARS? 5 

NOMIHAL INTEREST RATE? 7.9 

INITIAL INVESTMENT = $ 3368.54 


MORE DATA? (1=YES,0=ND)? O 


END PROGRAM 


PROGRAM LISTING 


10 PRINT “INITIAL INVESTMENT" 

20 PRINT 

232 REM ~- STATEMENTS 30 TO 100 REQUEST USER INPUT 
30 PRINT "TOTAL VALUE AFTER Y YEARS"; ‘ 
40 INPUT T 


NS TSN LR LTE ETI ROTI, ERT STE EME TL IE FOR OUR PN RN TET LOE ET A OLE TEAL PA! ARS RID Ming EAN SYR TEENA AECL RAE SO PEI STENTS TMP TPN + et ee, EE ee 
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50 PRINT “NUMBER OF COMPHUNDING PERIODS PER YEAR"$ 
79° PRINT “NUMBER OF YEARS"; ” 
80 .INPUT.Y 0... ee a 

90 PRINT "NOMINAL INTERENT RATE"; 

100 INPUT I 

108 REM - CALCULATE INTEREST RATE PER. PERIOD; 

109 REM - CONVERT FROM % TO DECIMAL 

£10 I=I/N/100 

115 REM - CALCULATE INITIAL INVESTMENT BY FORMULA 

120 PET/(L4I) #(NBY) 

129 REM - ROUND OFF TO-NEAREST CENT, PRINT 

130 PRINT "INITIAL INVESTMENT = %"s;INT(P#100+.5)/100 
139 REM - PRINT BLANK LINE TQ SEPARATE DATA FROM QUESTION 
140 PRIN). 

149 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 
150 PRINT "MORE DATA? (1=VES,0=NO)"3 

160 INPUT X 

170 IF X=1 THEN 20 

180 END 
eae Sa a ce ee 


OPTION 


The prograrn above allows you to enter a period of investment of whole years and decimal parts only. You 
may wish to enter the period of investment in years and months rather than just years. The program changes 
necessaiy are listed foliowing the example below. — 








Example: 
Mary wishes to invest a sum in a savings bank. In 3 years and 8 months she would like to have $4000.00 in 
her account. if 8% interest is compounded monthly, what amount must Mary invest? 


s RUN 
THITLAL INVESTMENT 


TOTAL VALVE AFTER VY YEARS? 4000 

NUMBCR CF COMPOUNDING PERIODS PER YEAR? le 
NUMBER GF YEARS, MONTHS? 3,6 

NOMIWAL INTEREST RATE? & 

INITIAL INVESTMENT = $ 2986 


MORE BATA? (1=VES,0=NQ)? 0 
END PROGRAM 


PROGRAM LISTING 


REM - OPTION 70-65 
PRINT "INITIAL INVESTMENT" 


fa IPT cies Sc clas Sete hile ot Sate ulcgiaaclaen re esi 
PRINT "NUMBER OF YEARS MONTHS) UU 

INPUT YO.M a ee oe : 
REM ~ CALCULATE YEARS FROM YEARS AND MONTHS — 
Ye(te@evoemy 1B : : 


PRINT UNOMINAL INTEREST PATE’? 





EWD 
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Minimum Investment for Withdrawals 











This program calculates the minimum investment required to allow regular withdrawals over a specified 


time period. The amount calculated is dependent upon the amount of each withdrawal, the number of with- 


- grawais per year, the number of years, and the nominal interest rate on the investment. All withdrawals are equal. 


: Only the least amount necessary for your investment is calculated: the program assumes a balance of $0.00 
~ to be left at the end of the time period, Any investment larger than the amount calculated will also enable you to 
_ withdraw the desired amount, but leave a remaining balance. 


Assuming that interest is compounded with each withdrawal, the calculation is based on the following for- 


, mula: 


" Example: 
How much must you invest at 6% interest to allow monthly withdrawals of $100.00 for 5 years? 


» ¢ RUN 


ov 





_ RN (: 1 . 
i (iti/N) NY 


where: P = _ initial investment 
R = amount of regular withdrawal 
i = nominal interest rate 
N = number of withdrawals per year 
Y = number of years 


MINIMUM INVESTMENT FOR WITHDRAWALS 


AMOUNT OF WITHDRAWALS? 100 
“NOMINAL INTEREST RATE? 6G 

NUMBER OF WITHDRAWALS PER YEA? 12 
NUMBER OF YEARS? & 

MINIMUM INVESTMENT = ¢ 5172.56 


MORE DATA (1=VYES, O=HD)? Q 


EHD PROGRAM 


PROGRAM LISTING 


10 
£20 
29 
30 
40 


PRINT 
PRINT 
REM - 
PRINT 
INPUT 
PRINT 
INPUT 
PRINT 
INPUT 


PRINT: 


INPUT 


Y 


"MINIMUM INVESTMENT FOR WITHDRAWALS" 


STATEMENTS 30 TO 100 REQUEST USER INPUT 


"AMOUNT OF WITHDRAWALS"; 

NOMINAL INTERENT RATE"S 

“NUMBER OF WITHDRAWALS PER YEAR": 
NNUMBER OF VEARS*? 
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105 REM ~— CONVERT FROM PEXCENT TO DECIMAL 


110 I=2I/100 

119 REM - CALCULATE MINIMUM INVESTMENT BY FORMULA 

120 PHRHM/L#C1-1/ (CLT /N) 4 CHRY) DD 

129 REM - ROUND OFF TG NEAREST CENT, PRINT 

130 PRINT "MINIMUM INVESTMENT = S"tINT(LOO#P+.5)/100 

139 REM - PRINT BLANK LIN= TO SEPARATE DATA FROM QUESTION 


140 PRINT | 
149 REM - RESTART OR END »ROGRAM? USER INPUT REQUIRED 


150 PRINT "MORE DATA (1=VYES, O=NO)"; 

160 INPUT X 

170 IF x=1 THEN 20 

180 EWD . 
2 eee 
OPTION 

It may be more convenient to enter the term of investment in years and months rather than years. The pro- 

gram changes necessary are listed following the example below. 


Example: 
Tony withdrew $250.00 monthly for 6 years and 5 months. How much was his initial investment at 6% i in- 
terest? 


+ RU 
MINIMUM INVESTMENT FOR WITHDRAWALS 


AMOUNT OF WITHDRAWALS? 250 

NOMILAAL INTEREST RATE? 6 

NUMBER CFE WITHDRAWALS PER YEAR? 1e 
MUMBER OF VEARPS, MONTHS? 6,5 
MINIMUM INVESTMENT = @ 15944.01 


MORE DATA (1=VES, 0=HO)? 0 


END PROGRAM 


PROGRAM LISTING 


i REM - OPTION 90-105 
10 PRINT "MINIMUM INVESTMENT FOR WITHDRAWALS" 


80 INPUT N bositliecey eee 
“990 0 PRINT "NUMBER OF. “YEARS 1 MONTHS"; te: 
“100 INPUT VO.M ee ee 
104. REM = CALCULATE. YEARS FROM YEARS AND MONTHS | 
105 Va(1RBeVOHM)/12 ce ere 
109 REM - CONVERT FROM- PERCENT. To “DECIMAL 


180 END 
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Nominal Interest Rate on Investments 


i 


This program calculates the nominal interest rate for a known initial investment which amounts to a known 
future value in a specified period of time. The nominal interest rate is usually subdivided for compounding pur- 


poses. 


“Nominal Interest Rate” is based on the following formula: 


pea ewe 
p= M(T/P) NY. ON 


where: # = nominal interest rate 
P = initial investrnent 
7 = future value 
-N = number of compounding periods per year 
Y = number of years 


The nominal interest rate is expressed as 3 yearly rate even though the interest rate used when compound- 
ing interest is ¥ The nominal interest rate will be less than the effective interest rate when interest is compounded 
more than once a year. This is because the nominal rate stated does not take into account interest compounded 
on interest earned in earlier periods of each year. For example, the schedule of earned interest Gn $100.00 at 5% 
compounded quarterly would be: 


i /400 
PERIOD BALANCE = ——— INTEREST NEW BALANCE 
1 $100.00 + 0125 = $1.25 = $101.25 
2 $101.25 + 0125 = $1.27 $102.52 
3 $102.52 - 0125 = $1.28 $103.80 
4 $103.60 - 0125 = $1.30 $105. 10 


The effective interest rate in the example is 5.1%, although the nominal rate is 5%. 


Examples: 


Jane invests $945.00 in a savings bank. Four and a half years later her investment amounts to $1309.79. If 
interest is compounded monthly, what is the nominal interest rate offered by the bank? 


Dick invests $3,000.00. Ten years later he has earned $1,576.00 in interest. If interest ts compounded each 


“month, what is the nominal interest rate on the account? 


>RUN - 
NOMINAL INTEREST RATE ON INVESTMENTS 


PRINCIPAL? 945 

TOTAL VALUE? 1309.79 

NUMBER OF VEARS? 4.5 . 

NUMBER OF COMPOUNDING PERIODS PER YEAR? ie 
NOMIHAL INTEREST RATE= 7.2761298 % 


MORE DATA: (1=YES,0=NO)? i 
PRINCIPAL? 3000 


TOTAL, VALUE? 4576 
NUMBER OF YEARS? 10 
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NUMBER OF COMPOUNDING PERIODS PER YEAR? ie 


pA. INTEREST RATE 4,22956608 % 





MORE DATA: (1 =YES,0=N0)? 0 


END PROGRAM 


PROGRAM LISTING 


10 PRINT "NOMINAL INTERENT RATE ON INVESTMENTS . 


20 PRINT 

23 REM ~ STATEMENTS 30 T3 100 REQUEST USER INPUT 

30 FRINT “ PRINCIPAL "s 

40 INPUT P 

50 PRINT "TOTAL VALUE"; 

60 INPUT T 

70060 PRINT "NUMBER OF YEARS" 

B80 INPUT Y 

90 PRINT "HUMBER OF COMPOUNDING PERIODS PER YEAR": 

100 INPUT N 

109 REM ~ CALCULATE NOMINAL INTEREST RATE BY FORMULA, PRINT 
110 Teen ((T/P)ECL/CN#Y )) 1400 

120 PRINT HNOMINAL INTEREST RATE=";125"%" 
125 REM - PRINI BLANK LINE TO SEPARATE DATA FROM QUESTION . (4 


130 PRINT 





139 REM - RESTART GR END ¥ROGRAM? USER INPUT REQUIRED 
140 «PRINT "MORE DATA: (1=VEG,O=NOD"S 
150 IHeuT x : 
160 IF X#i1 THEN 280 ; 
170 END ; 

| 
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Effective Interest Rate on Investments 











This program calculates the effective interest rate for a known initial investment which amounts to a known 
future value in a specified period of time. This rate expresses the actual rate of interest earned annually on the in- 
vestment. 


The effective interest rate is calculated by the following formula: 


. 1/years 
effective on future value Nv 4 
interest rate initial investment 
b You may calculate the effective interest rate on amounts you have already invested and accrued interest. Or 


you may calculate the effective interest rate necessary to enable a principal to reach a hypothetical value in a 
specified amount of time. For instance, if you invest $5000.00 in a bank and desire $6800.00 after six years, you 
will predict the effective interest rate the bank must pay in order to achieve this. 


“Effective interest Rate’ may also be used to calculate the effective percent of depreciation of an invest- 
ment. Take your car, for example. If you bought it for $7534.00 and sold it for $3555.00 three years later, you will 
find that its actual depreciation (a negative interest rate) was approximately 22% each year. 


Examples: 
Jane deposits $945.00 in a savings bank. Four and a half years later her account has $1309.79. What actua! 
percent of her initial investment did the bank pay annually? 


Dick bought his car in 1970 for $7534.84 and sold it in 1973 for $3555.00. What was its effective rate of 
depreciation? a 


tT RUN 

EFFECTIVE INTEREST RATE ON INVESTMENTS 
INITIAL INVESTMENT? 945 

TOTAL VALUE AFTER Y YEARS? 1309.79 
NUMBER OF YEARS? 4.5 

ANNUAL INTEREST RATE = 7.5237528 % 
MORE DATA? (1=VES,0=NO)? 1 

INITIAL IMVESTMENT? 7534.84 

TOTAL VALUE AFTER Y YEARS? - 3555 
NUMBER QF YEARS? 3 

ANHUAL INTEREST RATE =-22.150614266 % 
MORE DATA? (1=VYES,0=NO)? 0 


END PROGRAM 
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PROGRAM LISTING 
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PRINT "EFFECTIVE INTEMEST RATE ON INVESTMENTS" 


PRINT 


REM - STATEMENTS 30-89 REGUEST USER INPUT 
PRINT “INITIAL INVESTMENT "3 


INPUT P 


PRINT "TOTAL VALVE AFTER Y YEARS"; 


INPUT T 


PRINT "NUMBER OF YEARS"; 


INPUT Y 


REM ~ CALCULATE EFFECTIVE INTEREST RATE, PRINT 
PRINT "ANMUAL INTEREST RATE ="eC(T/PYACL/YI-L)FLO0; MS" 
REM ~ PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION 


PRINT 


REM - RESTART OF END PROGRAM? 
PRIN] "MORE DATA? (1=VES,0=NO)"; 


INPUT % 
IF x=1 THEN 
END 
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Earned Interest Tabie 








ec 


This program calculates and prints an earned interest table for investments. The schedule contains the 
following outputs: : 


1) Periodic balance 
2) Interest accumulated between two periods 
3) Total interest accumulated 
: 4) Effective interest rate 


These cutputs may be calculated for a single investment or for an initial investment with regular deposits or 
withdrawals. If the table is to be tabulated for a single investment, you must provide the amount of the initial tn- 
vestment, the nominal interest rate, and the number of compounding periods per year. Your new balance will be 
printed a maximum of four times per year. If interest is compounded less than four times per year, your new bal- 

ance will be posted with each interest computation. 


if the table is tabulated for regular deposits or withdrawals, you must provide the amount of the initial in- 
vestment, the nominal interest rate, the number of deposits or withdrawals per year and their amount. In this 
"ase it is assured interest is compounded daily (360-day year). Your new balance will be printed at each deposit 


’ or withdrawal. 


Examples: 
Sally invests $2000.99 at 9.5% in a trust fund for ten years. Interest is compounded monthly, What is ter 
yearly balance and earned interest for the last two years? 


John deposits $1000.00 at 8% in a passbook savings account. From each monthly paycheck $59.00 is 
deposited in this account. What is the earned interest table for the first year of this account? 


Ted deposits $1000.00 at 8% in his savings. Each quarter he withdraws $150.00. What is the earned in- 
terest table for year one of this account? 


2 RUE 
EARNED INTEREST TABLE 


PRINCIPAL? 2000 

NOMINAL INTEREST RATE? 5.5 

NUMBER OF DEPOSITS /WITHDRAWALS PER VEAR? 0 
NUMBER OF COMPOUNDING PERIODS PER YEAR? ie 
START WITH WHAT YEAR? 9 . 

END PRINTING WITH WHAT YEAR? 10 
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: EARNED INTEREST TABLE 
PRINCIPAL $ 2000 AT 9.5 % NOMINAL FOR 10 YEARS 
EFFECTIVE INTEREST RATE 93.92 % PER YEAR 


VEAR BALANCE INTEREST ACCUM. INTEREST 

9 4365.87 2365.86 2365.87 
4470.38 104.51 2470.38 
4577.39 107.02 2577.39 
4686.97 109.58 2686.97 

10 4799.17 112.2 2799.17 
4914.06 £414.89 2914.06 
5031.7 117.64 3031.7 
5152.15 120.45 3152.15 


CHANGE DATA AND RECOMPUTE? (1=VES, O=NO)?. 4 


PRINCIPAL? 1000 

NOMIMWAL INTEREST RATE? 8 

NUMBER OF DEPOSITS/WITHDRAWALS PER YEAR? le 
AMOUHT OF DEPOSIT /WITHDRAWAL? 50 

START WITH WHAT YEAR? 1 

EMD PRIHWTING WITH WHAT YEAR? 1 


EARNED IHTEREST TABLE 


PRINCIPAL & 1000 AT 8 % HWOMINAL. FOR 1 YEARS 
REGULAR DEPOSIT/WITHDRAWAL % 59 12 TIMES PER YEAR 
. EFFECTIVE INTEREST RATE 8.33 % PER VEAR 

YEAR BALANCE INTEREST ACCUM. INTEREST 

a 1056.7 - 6.7 6.7 
1113.78 7.08 13.78 
1171.24 7.46 Pi .24 
1229.08 7.84 29.08 
1287 .32 §.e3 37.32 
1345.94 8.62 45.94 
1404.95 9,01 54,95 
1464.36 9.41 64.36 
1524.17 9.61 74.17 
1564.38 10.21 84.38 
1644.98 10.61 94.98 
1706 11.014 106 


CHANGE DATA AND RECOMPUTE?: (12VES, O=NO)? 1 


PRINCIPAL? 1000 

NOMINAL INTEREST RATE? @ 

NUMBER GF DEPOSITS/WITHDRAWALS PER YEAR? 4 
AMOUNT OF DEPOSIT /WITHDRAWAL? ~150 

START WITH WHAT YEAR? 1 

END PRINTING WITH WHAT YEAR? 1 | 
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4 
THE TRI ae kN 


EARNED INTEREST TABLE 
PRINCIPAL $ 1000 AT 8 % NOMINAL FOR 1 YEARS 
- REGULAR DEPOSIT /WITHDRAWAL, $-150 4 TIMES PER YEAR 
i EFFECTIVE INTEREST RATE 8.33 % PER YEAR 


mood 


YEAR BALANCE INTEREST ACCUM. INTEREST 
a 870.17 20.17 20.17 
737.721 17.54 37.71 
602.58 14.87 52.598 
464.72 12.14 64.72 


- CHANGE DATA AND RECOMPUTE? (1=YES, 0=NO)? 0 


' END PROGRAM 


- PROGRAM LISTING 


PS OTe. 


i 
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"EARNED INTEREST TABLE" 


. 10 PRINT 
* 20 PRINT 
_  @9 REM - STATEMENTS 30 TO 230 REQUEST USER INPUT 
' BO PRINT "PRINCIPAL'S - 
= 40 INPUT P 
* 80 PRINT "NOMINAL INTEREST RATE"; 
60 INPUT I 
69 REM - CONVERT PERCENT TO DECIMAL 
70 JT=#I/100 
80 PRINT “NUMBER OF DEPOSITS/WITHDRAWALS PER YEAR"; 
90 INPUT Ni 
99 REM - DON’T ASK FOR AMOUNT IF FREQUENCY IS ZERO 
§ $00 IF Ni=s0Q THEN 160 
; 108 REM - DEPOSITS ARE-ENTERED AS A POSITIVE NUMBER 
- 105 REM - WITHDRAWALS ARE ENTERED AS A NEGATIVE NUMBER 
- $40 PRINT “AMOUNT OF DEPOSIT/WITHDRAWAL"; 
/ {$20 INPUT R 
. 129 REM - INTEREST IS COMPOUNDED DAILY 
f 130 N=360 
, 189° REM - PRINT AT EACH DEPOSIT /WITHDRAWAL 
* 140 L@=N1 
° 350 GOTO #2800 
460 PRINT "NUMBER OF COMPOUNDING PERIODS PER YEAR"; 
* 170 INPUT N 
f 180 Ni=0 
f 189 REM - PRINT FOUR TIMES PER YEAR 
' 190 La=4 
200 PRINT "START WITH WHAT YEAR"S 
, 210 INPUT X 
' 220 PRINT “END PRINTING WITH WHAT YEAR"; 
' @30 INPUT Y 
: P39 REM —~ START PRINTING AT THE BEGINNING OF A YEAR 
240 XRINT(%) 
; 249 REM - INITIATE RUNNING TOTALS 
' @50 Bo=pP 
; G60 110 
' 270 Ie=0 
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280 
250 
300 
310 
319 
320 
329 
330 
333 
340 
350 
360 
370 
BO 
3230 


(399 
400 
410 


a? S) 


420 
430 


440 
450 
459 
460 
469 
470 
486 
490 
500- 
Bid 
S139 
Se 
529 

a0 
539 
540 
549 
550 
560 
559 
570 


610 
620 
630 
639 
640 
649 
656 
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IS=0 

K=66 

P1i=4 

FOR JO=1 TO INT (Y) +1 

REM - START PRINTING? 

IF JO<xX THEN 480 

REM - TEST FOR END OF PAGE 

IF K<5S THEN 470 

REM ~- SPACE TO NEXT PAGE, PRINT HEADINGS (ASSUMED 66 LINES PER PAGE) 
FOR Kl=k TO 66 


PRINT 

NEXT Ki 

K=6 i 

PRINT “ EARNED INTEREST TABLE” 

PRINT " PRINCIPAL $"P; " AT"; I#1003"% NOMINAL FOR" SV¥3 "YEARS 
REM - SKIP DEPOSIT/WITHRRAWAL. HEADING IF THERE ARE MONE 


IF Nis0 THEN 430 


PRINT "REGULAR DEPOSIT/WITHDRAWAL S"3R3" "“S3N13" TIMES PER YEAR" 

‘REM ~ & COUNTS THE NUMBER OF PRINTED LINES PER PAGE 

K=Kt+1 

PRINT ” EFFECTIVE INTEREST RATE"; FNR(100#( (142 /N) #N-10 05 
"% PER YEAR" 

PRINT 

PRIHT "YEAR", "BALANCE", "INTEREST", "ACCUM.INTEREST" 


PRET TEE LIER TORE TMP TIT PRT OOBE TTEMET TT Sr coma 5S Olas cee ec 


eee 


REM ~ CALCULATE INTEREST 

PRINT 

REM - PRINT VEAR NUMBER 

PRINT JC, 

Li=i 

Nea=h 

Pe=1 

FOR Jizl TOWN 

REM ~ DEPOSIT/WITHDRAW ANY MORE THIS YEAR? 

IF N@>N1 THEN 5606 

REM - TIME TO MAKE DEPOSIT /WITHDRAWAL ? 

IF NE/NL>JL SN «THEM =6560 

REM - CALCULATE NEW BALANCE 

BO=B0+R 

REM - COUNT DEPOSITS/WITHDRAWALS MADE PER YEAR 
NZ=No + i 

He=BOFCi+L/N) 

REM ~- T1L=AMOUNT INTEREST WITH EACH COMPOUNDING PERICD 


Li=Be-BoO 

REM - I3=AMQUNT INTEREST ACCUMULATED BETWEEN POSTING 
IS=-ISt+iIl 

REM ~ T@=TOTAL INTEREST ACCUMULATED TO DATE 

Te=Ie+li 


REM - ROUND AT INTEREST POSTING TIME 
IF P@/Pi>J1/N THEN 640 

Te2=FHR(I2) 

B@=FNR (Be) 

Pe=Pe+1 

REM - VEAR TO START PRINTING? : 
IF JO<X THEN 710 

REM ~- TIME TO PRINT A LINE? 

IF Ji/N<Li/L@ THEN 716 
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660 
670 
673 
680 
630 
699 
700 
710 
713 
720 
730 
733 
740 


750. 


760 
770 
780 
783 
720 
800 
B10 
620 
B29 
830 
B40 
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Li=Li+l 

PRINT FNR(B2),FMR(I3) ,FMR(LeE) 

REM - INTEREST POSTED, REINITIALIZE INTEREST ACCUM. RETWEEN POSTINGS 
I3=0 

Keke) 

REM - YEAR NUMBER PRINTED WITH FIRST POSTING IN EACH YEAR ONLY 
PRINT 

BO=Be 

REM - NOQ MORE LINES TO PRINT IN LAST YEAR? 

IF JO+Ji/N-1>=¥ THEN 780 

NEXT JL . . 

REM - START PRINTING? 

IF JO<X THEN 770 

PRINT . 

K=K+i 

NEXT JO 

PRINT 

REM - RESTART OR END PROGRAM? 

PRINT "CHANGE DATA AND RECOMPUTE?. (1=VES, O=NO)"s 
INPUT Z eae 

PRINT 

IF Z=1 THEN 20 

REM - ROUND OFF FUNCTION 

DEFFNR (X) SINT (x#100+.5) 7100 

END 
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Depreciation Rate 
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This program calculates the annual depreciation rate of an investment. You must provide the original price 
of the item, its resale price, and its age in years. 


The depreciation rate is calculated by the following formula: 
depreciation _ 1- resale price. i/age 
rate original price 


t é 


Examplo: 
. Joan bought her car for $4933.76 and sold it for $2400.00 three years later. What was its actual deprecia- 
tion rate? 


> RUN 
DEPRECIATION RATE 


ORIGINAL PRICE? 4933.76 
RESALE PRICE? 2400 

VEARS? 3 

DEPRECIATION RATE = 21.354 % 


MURE DATA (1=YES, O=NO)? 0 


END PROGRAM 


PROGRAM LISTING 


10 PRINT “DEPRECIATION RATE" 
#0 PRINT 

3O PRINT "ORIGINAL PRICE"; 
40 INPUT P 

50 PRINT "RESALE PRICE"; 

60 INPUT T 

70 PRINT "YEARS"; 

BO INPUT Y : 


85 REM - CALCULATE DEPRECIATION RATE BY FORMULA, CONVERT TG PERCENT 


50 D=1008(1-(T/PIACLT SVD 

99 REM - ROUND OFF, PRINT 

100 PRINT “DEPRECIATION RATE ="INT(L0004D+ .5)/1000; "4%" 
410 PRINT 

119 REM - RESTART OR END “ROGRAM? 

120 PRINT “MORE DATA (1=YES, O=NQ0"; 

130) 6INPUT X 

1460 IF x=1 THEN 20 

i500 END 
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Depreciation Amount 








This program calculates the dollar amount depreciated within a given year for a depreciating investment. 
You must provide the original price of the investment, its depreciation rate, and the year of depreciation. 


The depreciation amount is calculated by the following formula: 


D=P+i+(1-f)¥-1 


where: D = depreciation amount 
P = original price 
i = depreciation rate 
Y = year of depreciation 


Examples: 


Joan bought her car for $4933.76. Her model car depreciates at an average annual rate of 21%. What 
amount has the car depreciated in each of the first three years she tias owned it? 


Joan is also concerned about the depreciation of the tape deck in her car, It cost her $155.00 two years ago, 
and has a depreciation rate of 22%. How much will its value decline in year three? 


+ RUM 
DEPRECIATION AMOUNT 


ORGIWAL PRICE? 4923.76 
DEPRECIATION RATE? ei = 


--{EWTER YEAR=0 WHEN NO MORE AMOUNTS DESIRED FOR THIS ITEM)-~ 


VEARY 1 
DEPRECIATION = *% 1036.09 


YEAR? 2 
DEPRECIATION 


* G1i8.514 


YEAR? 3 


DEPRECIATION * 646.02 


i 


YEAR? QO 
MORE DATA (1=YES, O=NOQO)? 43 


ORGIHAL PRICE? 455 
DEPRECIATION RATE? 22 


~-(EHTER YEAR=0 WHEN NO MORE AMOUNTS DESIRED FOR THIS ITEM) -~ 


YEAR? 3 
DEPRECIATION = # 20.75 


YEAR? 0 
MORE DATA (1=VYES, 0O=NO)? 0 


END PROGRAM 
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PROGRAM LISTING 


10 
20 
30 
+0 


1890 
130 
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PRINT "DEPRECIATION AMOUNT” 
PRINT 

PRINT “ORGINAL PRICE"$ 
INPUT P - 
PRINT “DEPRECIATION RATE"; 

INPUT I 

REM - CONVERT FROM PERCENT TO DECIMAL 
I=1/1i00 . 
PRINT "-~(ENTER YEAR=0 WHEN NO MORE AMOUNTS DESIRED FOR THIS ITEM: 


poo" 


PRINT "YEAR"3 

INPUT Y 

REM - THROUGH CALCULATING FOR THIS ITEM? 
IF Y=0 THEN 160 

REM - CALCULATE DEPRECIATION AMOUNT BY FORMULA 
D=P#l#(~-L)4(¥-1) 

REM - ROUND OFF TO NEAREST CENT, PRINT 
PRINT "DEPRECIATION = ®"sINT(D#100+.5)/100 
PRINT | 

REM - RETURN FOR NEXT YEAR NUMBER 

GOTO 90 

REM - RESTART OR END »ROGRAM? 

PRINT "MORE DATA (1=VES, O=NOQ)"3 

INPUT & ah i 

IF X=1 THEN 20 

END 
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Saivage Value . 
This program calculates the salvage value of an item at the end of a given year. It is necessary for you to 
provide the age of the item, iis original price, and its depreciation rate. : 
The salvage value is obtained by the following formula: 
S=P(1-i)¥ 


salvage value 
origina! price 
depreciation rate 
age in years 


“where: 


<~ DH 
nia w 


Example: 
What is the salvage value of Joan's car if it is three years old, she bought it for $4933.76, and it depreciates 
21% annually? What would its salvage value be next year? 


Joan’s tape deck is 2 years old. What is its value if it cost $155.00 originally and depreciates at a rate of 
22%? 


: RUN 
SALVAGE VALUE 


ORICIWAL PRICE? 4933.76 

DEPRECIATION RATE? G1 

--({LWTER VEARG=0 WHEN NO MORE VALUES DESIRED FOR THIS ITEM)-- 
YEARS? 3 

VALUE = & 2432.54 


YEARS? 4 
VALUE = 6 1921.7 


YEARS? 0 
MORE DATA (1=VES, 0=NO)? 1 


ORIGIHAL PRICE? 155 
DEPRECIATION RATE? ce 
~~(ENTER YEARS=0 WHEN NO MORE VALUES DESIRED FOR THIS ITEM) -- 


YEARS? @ 
VALUE = @ 94.3 


YEARS? oO 
MORE DATA (1=VYES, O=NQ)? O- 


EMD PROGRAM 


PROGRAM LISTING 
10 PRINT "SALVAGE VALUE" 


c0 PRINT 
30 PRINT "ORIGINAL PRICE"S : 
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40 INPUT 
50 PRINT 
60 INPUT 
70 PRINT 
} ame 1 
80 PRINT 
50) INPUT 
59 REM - 


P 

“DEPRECIATION RATE"; 

TI ‘ 
"ee {ENTER YEARS=0 WHEN NO MORE VALUES DESIRED FOR THIS ITEM 
"VEARS "3 

Y 


CALCULATE ANOTHER SALVAGE VALUE? 


100 IF Y=0 THEN 140 


108 REM - 
~109 REM - 
ONS 
$10 PRINT 
420) PRINT 
129 REM - 
136 GOTO 
4139 REM - 
140 PRINT 


150 INPUT 
i160 IF x=1 
170 END 


26 


CALCULATE SALVAGE VALUE BY FORMULA, ROUND OFF, PRINT 
DEPRECIATION RATE CONVERTED TO DECIMAL FOR USE IN CALCULATS | 


"VALUE = ®" SINT (CLOORP#(1-LT/10034¢V+.5)/100 


RETURN FOR NEXT VEAR NUMBER 
80 
RESTART OR END ~ROGRAM? 
"MORE DATA (1=YES, O=NQD)"; 
x 
THEN 20 
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This program calculates the amount of discount and net cost of a discounted commercial paper. You must 
” jovide the future value of the paper, the discount rate and the number of days to maturity. 


the formulas used to calculate the discount and cost are as follows: 


D N 
discount = 7:*--~e¢e- 
100 360 
cost = 7 - discount 
where: JT =. total future value 
D = discount rate 
N = number of days to maturity 


> fxample: 


oa oiggs 


Canning Corporation purchases a $625,000.00 commercial paper due 


: count end cost? 


RUN 


’ PISCOUNT COMMERCIAL. PAPER 


FUTURE VALUE? 625000 
. DISCOUNT RATE? 5.4 
“payS TO MATURITY? 60 


, faSCQUNT = € S625 ~ 
COST = $ 619575 


rare DATA (L=VES, G-NO)? O 


EMD PROGRAM 


FROGRAM LISTING 


in 60 days at 5.4%. What is the dis- 


10 PRINT "DISCOUNT COMMERCIAL PAPER" 

2O PRINT 

25 REM - STATEMENTS 30 TO 90 REQUEST USER INPUT 

20) PRINT "FUTURE VALUE"; 

40 INPUT T | 

50 PRINT "DISCQUNT RATE" 

60 INPUT D 

69 REM — CONVERT PERCENT YO DECIMAL 

70 =D=D/100 . 

CO PRINT "DAYS TO MATURITY" 

90 INPUT N 

39° REM - CALCULATE DISCOUNT, PRINT 

1600 Di=T#D#N/360 

110) PRINT "DISCOUNT = $";D1 

113° REM - CALCULATE COST, PRINT 

= PRINT COST = $*s;T-D1i 

“3° REM - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION 
27 


130) —- PRINT 

139 REM -~- RESTART OR END PROGRAM? USER INPUT REQUIRED 
140 PRINT "MORE DATA (15YES, O-NO)D"S 

150 INPUT x 

160 IF x=1 THEN 20 

170 =END 


28 


SI er Se ae Sh Ra RR ae Tari ar a ete at a a el at SRM MR RET a prt SPE a eT REE AAT AN RMR TRB OAPI TP EE SAE ATR SOE ENE LO, FEM TET TE I Tee” 


; eon 


a RAR RR 


st eee 
Principal on a Loan 
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This program calculates an initial amount borrowed. This amount is dependent upon the interest rate, the 
amount of regular payments, the number of payments per year and the term of the loan. 


The calculation is based on the formula: 


R°N 1 
P= —— \-  — 
i ( (1 aww) 
where: P = principal 
R = regular payment 
i = annual interest rate 
N = number of payments per year 
Y = number of years 


Example: 

Susan has agreed to pay $250.00 bimonthly for 3 years to repzy a loan with 20% interest. What is the 
amount of the loan? 

Tom can afford to rake payments of $180.00 per month to repay a loan. If he is willing to make payments 
for four and a half years and the loan company charges 16% interest, what is the maximum amount Tom car 
borrow? 


t RUA 
PRINCIPAL OM A LOAN 


REGULAR PAVMENT? O50 

TERM IM YEARS? 2 

ANNUAL INTEREST RATE? 0 
NUMBER OF PAYMENTS PER YEAR? & 
PRINCIPAL = % 3343.45 


MORE DATA? (i#VES, OFNOQ)? 4 
PEGULAR PAYMENT? 160 

TERM It YEARS? 4.5 

ANMUOAL INTEREST RATE? 16 

NUMBER OF PAYMENTS PER YEAR? le 
PRINCIPAL = % 6897.51 

MORE DATA? (L=¥YES, O=NO)? 0 


EMD PROGRAM 


PROGRAM LISTING 
10 PRINT "PRINCIPAL ON & LOAN" 
20 PRINT 
29 REM - STATEMENTS SO Tri 100 REQUEST USER INPUT 
30 PRINT “REGULAR PAYMENT" . 
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SO INPUT OP gor Sc a eas 
~ 50 PRINT “TERM ane YEARS"; 
.6O , INPUT YY. 
70 PRINT “ANNUAL, ‘INTEREST. RATE": 
BO INPUT I 
S50 PRINT “NUMBER OF PAYMEtHTS PER YEAR"; 
100 INPUT WN 
108 REM ~ CALCULATE AMOUNT OF PRINCIPAL BY FORMULAS 
109 REM - INTEREST CONVERTED FROM PERCENT YO DECIMAL FOR CALCULATIONS 
140) P=RAMF(L- “L/C(I/100) /H+1L > t¢NF¥)I 701/100) 
4115 REM - ROUND OF} TO NEAPEST CEMT, PRINT 
1200606 PRIHT ("PRINCIPAL =-$" Ss INT(P*#100+.5)/100 
129) «6 REM - PRINT BLANK LINZ TO SEPARATE DATA FROM QUESTION 
130) PRINT 
139 REM ~ RESTART OR END “ROGRAM? 
446 PRINT "MORE DATA? (LHYES, O=NO)"; 
150) «6oIHPUT xX : 
160 IF x=1 THEN 20 
17006 END 
OPTION 


In some cases it may be more convenient to enter the term of the loan in years and months seniet than just 
years. The program changes necessary are listed following the example below. 


Exaniple: 


What would be the amount of the morgage if you were paying $75.00 a month for 11 months with 3% in- 


terest? 


7 RUN 
PRINCIPAL ON A LOAH 


REGULAR PAYMENT? 75 

TERM IN VEARS, MONTHS? @,11 
ANMMUAL INTEREST RATE? 3 

NUMBER OF PAYMENTS FER YEAR? ic 
PRINCIPAL = $ 812,76 


‘MORE DATA? (L=YES, O=HO)? 0 


END PROGRAM 


PROGRAM LISTING 


i: REM ~ OPTION 50-65- 
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10 PRINT "PRINCIPAL ON A LOAN" 
“so PRINT “TERM IN VEARS “MONTHS prraaces t 
a € INPUT YO,M | a 
be REM ~ CALCULATE VEARS FROM YEARS AND MONTHS 
70 a “ANNUAL LNTEREST RATE": 
170 END 
30 
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Regular Payment on a Loan 


ett 


This program caiculates the amount required as regular payments in order to repay a foan over a specified 
time period. The specifications you must provide are the amount of the principal, the interest rate charged, the 
sumber of payments to be made per year and the number of years to pay. This program assumes all installment 


payments will be equal. 
The calculation is based on the formula: 
te P/N 


i ~-NeY 
1-(- + ') 
N 


R= 





where: AR = regular payment 
i = annual interest rate 
P = principal 
N = number of payments per year 
Y = number of years 


Examples: 


What must you pay on a loan of $4000.00 at 8% if payments are to be made quarterly for five years? 


if Michee!l borrows $6509.00 at 12.5% from Best Rate Savings & Loan to be paid back over a period of 5.5 


vears, What would his monthly payments be? 


> RUN 
REGULAR PAYMENT ON A LOAN 


TERM IN YEARS? 5S 

PRINCIPAL? 4000 

ANNUAL INTEREST RATE? 8 

NUMBER OF PAYMENTS PER YEAR? 4 
REGULAR PAYMENT = # 244.63 


MORE DATA? (1=VES, O=NO)? 1 
TERM IN VEARS? 5.5 

PRINCIPAL? 6500 

AHNUAL INTEREST RATE? 12.5 
NUMBER OF PAYMENTS PER YEAR? ie 
REGULAR PAYMENT = $ 136.68 

MORE DATA? (1=YES, 0O=NO)? 0 


END PROGRAM 


PROGRAM LISTING 


10 PRINT "REGULAR PAYMEN) ON A LOAN" 
c0 PRINT 
23° REM - STATEMENTS 30 Tit 100 REQUEST USER INPUT 


dent 
ae oe oe : 
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"30 PRINT STERM “IN “VEARS"; 
50 PRINT "PRINCIPAL" 
60 INPUT P 
70 PRINT “ANNUAL INTEREST RATE"; 
BO INPUT I 
90 PRINT "NUMBER OF PAYMENTS PER YEAR"$ 
100 INPUT N 

. 408 REM - CALCULATE AMOUNT OF REGULAR PAYMENT BY FORMULA; 
109° REM ~ INTEREST CONVERTED FROM PERCENT TO DECIMAL FOR CALCULATION: 
410 R=((I/100)#P/ND/(1-1/0(1/100) /N+d A INeY)) 

119 REM - ROUND OFF TO NEAREST CENT, PRINT 

“120 PRINT "REGULAR PAYMENT = #"SINT(R#100+.5)/100 
129 REM - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION 
120 PRINT 
139 REM - RESTART OR END »ROGRAM? 
140 PRINT "MORE DATA? (1=VES, O=NO)"; 
1450 INPUT x | 
160 IF X=1 THEN 20 
170 END 

OPTION 


You may find it more convenient to enter the term of payment in years and months rather than years. The 
prograrn changes necessary are listed following the example below. 


Exaniple: 
Mr. Terry needs $10,000.00 to put down on a new home. Best Rates offers this amount at 14.096 interest 
to be repaid over a period of 11 years and 5 months. What would be the amount of requiar monthly psyments? ~ 


*RUN 


REGULAR PAYMENT ON A LOAN 


TERM IN YEARS, MONTHS? 11,5 
PRINCIPAL? 10000 

ANNUAL INTEREST RATE? 14 
NUMBER OF PAYMENTS PER YEAR? 12 
REGULAR PAYMENT = $ 146.59 


MORE DATA? (1=YES, O=NQO)? 6 


END PROGRAM 


PROGRAM LISTING 
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REM - OPTION 30-45 
PRINT "REGULAR PAYMENT i A&A LOAN” 


REM — STATEMENTS 30 Til 100 REQUEST US aie ae 


“PRINT "TERM InN- YEARS ; MONTHS"; ” 
| INPUT YOM © 


REM ° = - CALCULATE YEARS FROM YEARS AND MONTHS 


PRINT “PRINCIPAL iS 
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Last Payrnent on a Loan 


ee 





A 


This program calculates the amount of the final payment on a loan. This final payment will complete amor- 
tization of a loan at the conclusion of its term. You must provide the amount of the Joan, the amount of the regu- 
lar payment, the interest rate charged, the number of payments per year and the term of payment. 


The amount of the last payment is normally different from the amount of the regular payment. The final 
payment will be a “balloon” payment if the final payment Is larger than the regular payment. A balioon payment 
‘s necessary if applying the amount of the regular payment as the last payrnent leaves a remaining balance due. In 
order to entirely pay off the loan at the end of its term, this remaining balance is added to the amount of the 


regular payment to determine the amount of the last payment. 
On the other hand, the amount of the final payment is sometimes less than the regular payment. If the regu- 


tar payment as the last payment would result in a negative loan balance, then the last payment should be smaller. 
In this case the regular payment is adjusted by the amount of this hypothetical negative balance to determine the 


amount of the last payment. 


amount of _ regular 4 hypothetical balance cue on a 
last payment ~ payment lodn after V « Y regular payments 
where: WV number of payments per year 


t ti 


Y number of years 


Examples: 
Lynn borrowed $6000.00 at 5% from her father for college expenses. If she pays $1000.00 annually for 
seven years, what will her last payment be? . 


Lynn borrows $1150.00 at 8% interest to be repaid at a rate of $75.00 per month. A year and two months 
later Lynn decides to go to Europe. How much must she pay next month to completely pay off her loan? 


: RUM 
LAST PAYMENT GN A LOAN 


REGULAR PAYMENT? 1000 
PRINCIPAL? 6000 

TERM IN YEARS? 7? 

ANMUAL INTEREST RATE? & 
NUMBER OF PAYMENTS PER YEAR? 1 
LAST PAYMENT = # 1300.59 


MORE DATA? (1=YES,05ND)? 1 


REGULAR PAYMENT? 75 

PRINCIPAL? 1150 

TERM IN YEARS? 1.17 

ANHUAL INTEREST RATE? 8 
NUMBER OF PAYMEHTG& PER YEAR? 12 
LAST PAYMENT = % 240.38 


MORE DATA? (i=VYES,0=N0)7 0 


END PROGRAM 
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PROGRAM LISTING 


10 PRINT “LAST PAYMENT ON A LOAN" 

20 PRINT 

23 REM ~ STATEMENTS 30 TO 130 REQUEST USER INPUT 
30 PRINT "REGULAR PAYMENT" 


40 INPUT R 
50 PRINT "PRINCIPALS 
INPUT P 
“PRINT | "TERM"IN’ YEARS"; "| 
INPUT Y 7 fe 





 PPINT Y’ANNUAL INTEREST RATES 

4100 INPUT I 

109 REM - CONVERT INTEREST FROM PERCENT TQ) DECIMAL 

410 I=1/100 

120 PRINT "NUMBER OF PAYMENTS PER YEAR": 

130 INPUT N 

140 BO=P 

1449 REM - COMPUTE ALL PAYMENTS, BALANCES THROUGH LAST PAYMENT USING R 
450 FOR Ji=i TO N*Y 

159 REM - ROUND OFF INTEREST PAID 70 NEAREST CENT 

160 Zi=INT((BOeL/N)#1004+.5)/100 

469 REM ~ CALCULATE AMOUNT AMORTIZED WITH EACH PAYMENT 
170 «ABR-IL 

178 REM - BALANCE REMAINING DECREASES WITH EACH PAYMENT 
180 RO=BO0-A 

190 NEXT Jt : 

19% REM - CALCULATE LAST PAYMENT, ROUND OFF, PRINT 

200 PRINT "LAST PAYMENT = $"° SINT ((R+BO #1004 .5)/100 
210 PRINT 

239 REM - RESTART OR END PROGRAM? 

scx) PRINT "MORE DATA? (1=VES,0=NO}"S 

P2og INPUT X 

O40 LF mei THEN &0 


£250 END 
a 


OPTION 
The prograrn above allows the term of payment on the loan to be entered in years only. You may wish to 
enter the term in years and months instead. The program changes necessary are listed following the example. 








Exaraple: 
if you pay $40.00 a month for 2 years and 3 months on a loan of $1200.00 at 7.5%, what amount will the 
fast payment total? 


2 RUN 
LAST PAYMENT GN A LOAN 

REGULAR PAYMENT? 40 

PRINCIPAL? 1200 

TERM IN YEARS AND MONTHS? 2,3 
ANNUAL INTEREST RATE? 7.5 
HUMBER OF PAYMENTS PER YEAR? 12 
LAST PAYMENT = % 287.96 


MORE DATA? (1=YES,0=SNO)? © 
END PROGRAM 
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if REM ~ OPTION 70-85 
| PRINT "LAST PAYMENT OM A LOAN" 


_ 
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PRINS “TERM IN VEARS: “AND “MONTHS 5 
Th. PUT Yoh ee 
REM = CALCULATE. YEARS FROM YEARS: AND MONTHS 

vee ieryVorn V/ 1é.. oe aie oH Gea eer aon 


PRINT “ANNUAL INTEREST "RATE": 
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Remaining Balance on a Loan 


ag 


This program calculates the balance remaining on a loan after a specified number of payments. It is necess- 


ary for you to provide the amount of the regular payment, the number of payments per year, the amount of the 
principal, the annual interest rate, and the payment number after which to calculate the remaining balance. 


The remaining balance is calculated by the following method: 


— femaining = principal =~ amount amortized after 
balance N-(Y- 1)+ NI payments 
where: NW = number of payments per year 
y = year to calculate remaining balance 
N17 = payment number in year Y to caiculate rernaining balance 


Example: 
Kelly has taken out a loan of $8000.00 at 17.2% interest. His regular payments are $200.00 per month. If he 
has paid through the tenth payment in the fourth year, how much more does Kelly owe on his loars? 


2 RUN 
REMAINING PALANCE ON A LOAN 


REGULAR PAYMENT? 200 

DRINCIPAL? 8000 

NUMBER OF PAYMENTS FER YEAR? if 

ANNUAL INTEREST RATE? 17.2: 

LAST PAYMENT MADE (PAYMENT NOQ. YEAR)? 10,4 
PEMALWING BALANCE = % 2496.17 


MORE DATA? (1sYES ,O=NO)?. 0 


END PROGRAM 


PROGRAM LISTING 


10 PRINT MREMAINING BALANCE ON A LOAN" 


20 PRINT 
29 REM - STATEMENTS 3O Tl! 130 REQUEST USER INPUT 


39 PRINT "REGULAR PAYMENT" 
40 INPUT R 
50 PRINT "PRINCIPAL "3 
60 INPUT P 
70 «PRINT "NUMBER OF PAYMENTS PER YEAR"S 
BO INPUT N 
90 PRINT “ANNUAL INTEREST RATE": 
soo INPUT I 
403 REM - CONVERT FROM PERCENT TO DECIMAL 
410 I=1/100 
419 REM - ENTER THE PAYMENT NUMBER WITHIN THE YEAR, I.E. .Ni<sh 
120 PRINT "LAST PAYMENT MADE {PAYMENT NO. ,YEARD"S 
$30 ZFNPUT N1.¥ 
139 REM - INITIALIZE REMATNING BALANCE 
440 BO=P 
149 REM ~ LGOP TO ACCUMULATE AMOUNT PAID SO rAR 
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150 FOR Ji=1 TO N®(Y-L)4Ni 

159 REM - CALCULATE INTEREST PAID WITH EACH PAYMENT 
160 LASINT( (BOI /N)#100+.5) 100 

169 REM - CALCULATE AMOUN! AMORTIZED WITH EACH PAYMENT 
170 ASR-Ii 

179 REM ~ CALCULATE REMAINING BALANCE ON PRINCIPAL. 
180 HO=BO-A 

190 NEXT Jt 

199 REM - ROUND OFF, PRINT 

a00 PRINT "REMAINING BALANCE = $";INT(BO#1004.5)/100 
210 PRINT 

219 REM ~ RESTART OR END “ROGRAM? 

220 «PRINT "MORE DATA? (1=VES,0=NQ)"$ 


230 INPUT X e 
240 IF Xsi THEN 20 i 
250 END 


a 
a 


OPTION 

You may wish to specify the number of the last payment made as the total payment number rather than the 
payment number within a certain year. For instance, when 4 payments are made per year, payment 3 of year 3 
would be entered as payment number 11. The program changes necessary are listed following the exampie 


below. 


Exarmpte: 
John made ten quarterly payments of $550.00 on a loan of $6000.00 with 16% interest. What is his remain- 
ing balance? 


cRUM 
REMAINING PALANCE ON A LOAN 


REGULAR PAYMENT? 550 
PRINCIPAL? GODO 

HUMBER OF PAYMENTS PER YEAR? 4 
ANNUAL INTEREST RATE? 16 
NUMBER OF PAYMENTS MADE? 10 
REMAINING BALANCE = @ 2278.09 


MORE DATA? (i1=VYES,0=NOQ)?7 0 


END PROGRAM 


PROGRAM LISTING 


4 ‘REM ~ OPTION 119-130, 150 
10 PRINT "REMAINING BALANCE ON A LOAN" 


1410 Z=1/100 OER RS eee rs 
419 REM - ENTER THE TOTAL HUMBER OF PAYMENTS MADE TO 
120. PRINT “NUMBER OF PAYMENTS MADE" a: G an 
430 INPUT Mi ©. on! pe TREY Mite Lae wel eam ee ee 
129 REM - INITIALIZE REMATNING BALANCE 

145 PEM - LOOP TO ACCUMULATE AMOUNT PAID SO FAR 

iSQ FOR Ji=i TO NI 2 

{59 REM ~ CALCULATE INTEREST PSID WITH EACH PAYMENT 


e 


£50 END 
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Term of a Loan 











This program calculates the period of time needed to repay a loan. You must specify the amount of the 


foan, the amount of the payments, the number of payments to be made per year and the annual interest rate on 
the loan. All payments are assumed to be equal. . 


’ The term of payment is derived from the following formula: 


Pej 
log [1- —— 
NR 


Eee ane em rae a 


i 
log (1+ 4 | 
N 


1 
N 


where: Y 


= term of payment in years 
P = _ principal 
i = annual interest rate 
Ns == number of payments per year 
R = amount of payments 


Examples: ne 
What would be the duration of payment on a mortgage of $20,000.00 at 12% when payments af $1090.00 
are to ke made quarterly? 


Sally takes out a loan for $12,669.00 at 16.8%. Her payments are $512.34 every two months. What is the 
term of. ner loan? 


2 RUN 
TERM GF A LOAN 


REGULAR PAYMENT? 1000 
PRINCIPAL? 20000 

AMMUAL INTEREST RATE? 18 
NUMBER OF PAYMENTS PER YEAR? 4 
TERM = 13.4 YEARS 

MORE DATA? (i=VYES, O=NO)? 1 
REGULAR PAYMENT? Sic .c4 
PRINCIPAL? 12669 

ANNUAL INTEREST RATE? 16.8 
NUMBER OF PAYMENTS PER YEAR? & 
TERM = 7.1 YEARS 

MORE DATA? (1=YES, O=NO)? 0 


END PROGRAM 
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- pROGRAM LUSTING 


| 10 PRINT "TERM OF A LOAN" 
20 0 6PRINT 
29 REM - STATEMENTS 30 TO 100 REQUEST USER INPUT 
30 PRINT "REGULAR PAYMENT": 
| 40 INPUT R 
; 50 PRINT "PRINCIPAL"; 
60 INPUT P 
| 70 «PRINT "ANNUAL INTEREST RATE"$ 
80 INPUT I 
| 90 PRINT “NUMBER OF PAYMENTS PER YEAR"$ 
{00 INPUT N 
| 108 REM ~- CALCULATE TERM TH YEARS BY FORMULAS; 
| {03 REM - INTEREST CONVERTED FROM PERCENT TO DECIMAL FOR CALCULATION 
110 YVs-(LOG(1-(P#(1/100))/ (NFR) / CLOG (L421 /100/N)#N) 
PY4O°" REM = “ROUND GFF TO NEAREST TENTH, PRINT oo” 
120.) PRINT TERM = s2NT(Y#1 0+ +5)./1.03 (YEARS 2c 
“430 PRINT is ea ie aa 
139 REM - RESTART OR END “ROGRAM? 
140 PRINT "MORE DATA? (1=VES, O=NO)"; 
150 INPUT X 
{60 IF X=1 THEN 20 
£70 «END 
OPTION 


It is possible to calculate the term of payment in years and months rather than just years. To do this, make 
the program changes listed following the example below. 


Example: 


Dick took out a loan for $3000.00 at 7.5%. Regular payments of $150.00 are to be made monthly. How long 
will it take tc pay off the loan? 


RUN 


TERM OF A LOAN 


REGULAR PAYMENT? 150 


PRINCIPAL ? 8000 
AMNUAL INTEREST RATE? 7.5 


NUMBER 


TERM 


QF PAYMENTS PER YEAR? 1c 
& YEARS, 5 MONTHS 


MORE DATA? (1=YES, O=HO)? O 


END PROGRAM 


Bowne 


ties ee 
RELY eR LS RT ERE TRG IE EEN PEL RL OT UI EE LO CE IES AE OAT EA ET AMAT, PM SE MARAE TERROR SR AOE ENE A ESTATE, MBS To METERS OT 


39 


~- 





PROGRAM LISTING 
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REM - OPTION 114-120 
FRINT "TERM OF A LOAN” 
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M=M-YOF#12. 


PRINT : 


END 
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Annual Interest Rate on a Loan 


iT 








This program calculates the rate at which interest is charged on a loan. To determine this rate you must 
enter the arnount of the loan, the amount of the regular payrnent, the number of payments per year, and the term 


of the loan. 


i) 


2) 


3) 
4) 


5) 


Examples: 


The annual interest rate is computed by the following method of approximation: 


Guess an interest rate 
Initialize last guess to 0 
Compute regular payment using guessed rate: 
i+ PIN 
1-(14i/N)-NeY 
Round off #, 
If cornputed payment = actual payment, then current guess = approximate interest rate 


R, = 


Otherwise, save current guess and calculate a new guess 
i, FT 
+if#R,<R 
i = ft V-7,)/2| 
-ifR,>R 
Go to 2 
where: / interest rate 
] previous fnterest rate 
input reguisr payment 
computed regular payment 
principal 
number of payments per year 
number of years 


~~ 
%» 


td wl 


et 


oR a 
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Cindy borrowed $3000.00 from her friend George with an agreement to pay back $400.C0 quarterly for Z 
years, At what interest rate is she being charged? 


To pay back a loan of $10,000.00 John contracted to make monthly payments of $120.00 for 9.5 years. At 
what rate is interest being charged? 


+ RUN 


ANNUAL INTEREST RATE ON A LOAN 


REGULAR PAYMENT? 400 

TERM IN YEARS? 2 

PRINCIPAL? 3000 

NUMBER OF PAYMENTS PER YEAR? 4 
ANNUAL INTEREST RATE = 5.827 % 


MORE DATA? (1=YES, G=NO)? 1 


REGULAR PAYMENT? 120 

TERM IN YEARS? 9.5 

PRINCIPAL? 10006 

NUMBER OF PAVMENTS PER YEAR? 12 
ANNUAL INTEREST RATE = 6.933 % 


MORE DATA? (1=YES, O=ND)? 0 


END PROGRAM 
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PROGRAM LISTING 


10 
20 
29 
20 
40 
50 
60 
70 
80 
90 
100 
109 


~ 110 


119 
120 
129 


150 


139 
140 
4149 
150 
15° 
160 
163 
169 
17¢ 
160 
16% 
190 
15° 
200 
03 
210 
PiS 
220 
229 
230 
249 
250 
259 
260 
270 
250 
230 
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% Sage anaengc 


PRINT 
PRINT 
REM - 
PRINT 
INPUT 
PRINT 
INPUT 
PRINT 
INPUT 
PRINT 
INPUT 
REM - 
I=10 

REM ~- 
r2=0 

REM = 
RL=ati* 
REM - 
Ri=INT 
REM ~ 


" Af 


STATESENTS 20 TO 190 REQUEST USE 


“REGULAR PAYMENT" i 
R 
“TERM IN YEARS" 
Y 

“PRINCIPAL "$ 

F 


NM 
GUESS AN INTEREST 


AL INTEREST RATE ON A LOAN" 


“NUMBER OF PAYMENTS PER YEAR"; 


R INPUT 


RATE (10%) TO INITIATE TESTING 


IP=LAST GUESS OR ESTIMATE (START WITH O} 


COMPUTE REGULAR PAYMENT USING GUESSED INTEREST RATE 


P/MISCLAL/ CCL /N+1 DE CHEY) 
ROUND OFF -TO NEAREST CENT 
(R1i#1004+.5)/100 


IS=NUMBER USED TO CLOSE IN ON INTEREST RATE 
T3B=ABS (1-12) /e 


T= ( CINT( (141600 )*100+.5))/100 9/1900 
PRINT “ANNUAL INTEREST RATE =" sL#10035 "2%" 


PRINT 
REM ~ 
PRINT 
INPUT 
IF x=i 
END 


RESTART OR END PROGRAM? 
MMORE DATA? (1=VES, 0=ND)" 
- 

THEN 


20 


wate ET Ae TRENT RL MMR Teta 


TERA TT DE NT LE EO ES 


=APPROXIMATE INT. RATE 


REM - SAVE THIS GUESS 

Ie=1I 

PEM - COMPARE COMPUTED PAYMENT (Ri) TO INPUT PAYMENT (R)5 
REM - IF THEY’RE EGUAL, LAST RATE GUESSED 

IF Ris THEN e250 

Ie RisR THEN 210 

PEM - RLCR, RATE MUST BE HIGHER THAN LAST GUESS 

T=#1+12 
REY — RETEST WITH HEW GUESS 

GOTG i186 

PEM ~ Rid, RATE MUST BE LOWER THAN LAST GUESS 

[=1I1-13 

REM - RETEST WITH NEW GUESS 

GOTG 130 

REM «- COMPUTE INTEREST TO PROPER PROPGRTIONS, ROUND OFF, PRINT 
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. ‘The above listing allows the term of the loan to be entered in years only. You may wish to enter the term in 
"years and months rather than years. The program changes necessary are listed following the example below. 


_ example: 
if Connie pays $100.00 per month for 11 years and 7 months on a $10,000.00 loan, what is the annual in- 
- sgrest rate on the loan? . 


“RUN 
"ANNUAL INTEREST RATE ON & LOAN 


REGULAR PAYMENT? 100 

“sERM IN YEARS, MONTHS? 11,7 
pRINCIPAL? 10000 

‘ WUMBER OF PAYMENTS PER YEAR? 1e 
“ANNUAL INTEREST RATE = 6.002 % 


“ORE DATA? (1=VES, O=NO)? 0 


END PROGRAM 


“PROGRAM LISTING 


1 REM - OPTION 50-65 
10 PRINT “ANMUAL INTEREST RATE ON 4, LOAN" 


49 INPUT R 

O° PRINT "TERM IN VEARS, MONTHS"? — aati 
69 IMPUT YO,M 

Gh REM - CALCULATE VEARS FROM YEARS AND MONTHS 


65 Ya (1e#vOtM) /12 eee oe ee ere 
70 PRINT "PRINCIPAL" 3 
230 END 
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Mortgage Amortization Table 
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This program calculates and prints a loan repayment schedule. This schedule provides the following out-. 
puts: 
1) Payrnent number . | 
2) Amount of each payment paid as interest 
3) Amount of the loan amortized with each payment 
4) Balance remaining on the principal at the time of each payment 
5) Accumulated interest paid at the time of each payment 
6) Amount of the last payment 


ee Ee ee me ee EE =e ete dere me cee: = 
: ea 


In addition, the yearly totals of interest paid and amount amortized are tabulated and printed. 


To use this program you must supply the amount of the reguiar payrnent, the term of payment, the number 
of payments per year, the amount of the principal and the annual interest rate. 


The schedule is calculated in the following manner: 


1) Payment number = payment number within each year 


2) Amount of each payment paid as interest = remaining balance + i/N 
where: / = annual interest rate 
N number of payments per year 


3) Amount amertized with each payment = R-i 


where: A amount of requiar payment 
/ amount of each payment paid as interest 
4) Balance remaining =P - 2A 
where: P = principal 
SA = sum of amounts amortized with each payment to date 
5) Accumulated interest = Lf 
where: <&/ = sum of amounts of each payment paid as interest to date 
6) Amount of last payment =A + (P-ReN*¥) 
where: A = regular payment 
P = principal 
No = number of payments per year 
Y = number of years 


Example: . 
David needs $2100.00 to pay off some debts. His sister offers him the money at 6% interest. With pay- 
ments of $75.00 monthly for 242 years, what is David's repayrnent schedule? 


+ RUN 
MORTGAGE AMORTIZATION TABLE 


REGULAR PAYMENT? 75 

TERM IN YEARS? @.5 

PRINCIPAL? 2100 

ANNUAL INTEREST RATE? 6 

NUMEER OF PAYMENTS PER YEAR? 12 


4 


START PRINTING WITH WHAT YEAR? 4 
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MORTGAGE AMORTIZATION TABLE 
PRINCIPAL $ 2100 AT 5 %& FOR 2.5 YEARS 
REGULAR PAYMENT = $ 75 © 


ae : 


HO. INTEREST AMORTIZED BALANCE ACCUM INTEREST 
“4 10.5 64.5 2035.5 10.5 

a 10.18 64.82 1970.68 20.68 
Q 9.85 65.15 | 1905.53 30.53 
és 9.53 65.47 1840.06 40.06 
S 9.2 65.98 1774.26 49.26 
G 8.87 66.13 1708.13 58.13 
7 8.54 66.46 1641.67 66.67 
6 8.21 66.79 1574.88 74.88 
9 Ti37 67.13 1507.75 82.75 
10 7.54 67.46 1440.29 90.29 
11 7.2 67.8 1372.49 97.49 
12 6.86 68.414 1304.35 104.35 
VR. 1 104.35 735.65 

4 6.52 68.48 1235.87 110.87 
e 6.18 68.82 1167.05 117.05 
3 5.84 69.16 1097.89 122.89 
& 5.49 69.51 1028.38 128.38 
Ss 5.14 69.86 958.52 133.52 
6 4.75 70.84 988.31 138.31 
7 4.44 70.56 617.75 142.75 
8 4.09 70.91 "746 .84 146.84 
i) 2.73 71.87 675.57 150.57 
10 3.58 71.62 603.95 153.95 
ii 3.02 71.58 531.97 156.97 
ig 2.66 72 .34 459.63 159.63 
VR. @ 55.28 844.72 

i 2.3 72.7 386.93 161.93 
2 1.93 73.07 313.86 163.86 
3 1.57 73.43 240.43 165.43 
4 1.2 73.8 166.63 166.63 
5 .83 74.17 92.46 167.46 
6 46 92.46 4) 167.92 

LAST PAYMENT = @ 392.92 

YR. 3 459,63 


CHANGE DATA AND RECOMPUTE? (i=VES, O=NO)? 0 


8,25 


EHD PROGRAM 


PROGRAM LISTING» 


10 PRINT "MORTGAGE AMORTIZATION TABLE" 

20 PRINT 

29 REM - STATEMENTS SO TO 150 REQUEST USER INPUT 
30 PRINT “REGULAR PAYMENT "S$ 

40 INPUT Rk 
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250 
259 
260 
261 
262 
263 
264 
269 
270 
279 
2a0 
289 
290 
299 
300 
310 
320 
330 
339 
340 


poset 


BOO 
370 
380. 
389 
330 
400 
4140 
419 
420 
4e3 
430 
439 
21Q 
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PRINT “TERW HN VeaRs™: 


PRINT "PRINCIPAL" 5 

INPUT P 

PRINT “ANNUAL INTEREST RATE" 

INPUT I 

REM ~ CONVERT FROM PEXCENT TO DECIMAL 
I=I/100 

PRINT “NUMBER OF PAYMENTS PER YEAR"; 

INPUT WN 

PRINT "START PRINTING WITH WHAT YEAR"; 
INPUT X 

REM - START PRINTING AT FEGINNING OF A YEAR 
X=INT(X) 
REM - INITIALIZE VARIABLES 

Cix=0 

I2=0 

I3=0 

JO=0 

Ni=N 

K=66 

BO=P 

AL=0 

A2=0 

REM - TERM LESS THAN WNE YEAR? 

LF INTt(¥Y)>=1 THEN e270 

REM - ADJUST VARIABLES TO PRINT A PARTIAL YEAR 
Nis C(¥Y<DHT CV) #12) /128N 

JG= 7044 

GOTQ 280 

REM - LOOP FOR EACH YEAR 


"FOR JO=i TO INTCY?) 


REM - START PRINTING? 
IF JO<X THEN 410 
REM ~ NEED TO START NEXT PAGE? 

TF K+N+S<S8 THEN 400 

REM - SPACE TO TOP OF NEXT PAGE (ASSUME 66 LINES PER PAGE) 
FOR Ki=K TO 66 

PRIN} 

NEXT K1 

PRINT 

REM - PRINT PAGE HEADINGS 


PRINT MORTGAGE AMORTIZATION TABLE" 


PRINT © OOOUOPRINGIPAL #43P2° 0° AT™FL81005 %%..., -FOR'sYs "YEARS" | 


PRINT "* PEGULAR PAYMENT = @°7R 

PRINT 

PRINT "NO. 0s “THTEREST" , "AMORTIZED" , "BALANCE" , "ACCUM LHTEREST “ 
REM - COUNT LINES PRINTED ON EACH PA&GE IN K . 

ia 

K=K+H+3 

FOR Jie1 TO NI 

REM - CALCULATE INTEREST PAID THIS PAYMENT, ROUND OFF 

TL=IN ( (HOF I/N) #1004 659/100 

REM - COUNT NUMBER OF PAYMENTS MADE SO FAR 


CisCitt 
REM - CALCULATE AMOUNT AMGRTIZED THIS PAYMENT 
AaR-Li 
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443 REM - SUM AMOUNT AMORTIZED TO DATE 

450 AISALTA 

459 REM - CALCULATE BALANCE DUE 

4&0 BO=P-Al 

a68 REM ~ LAST PAYMENT? IF YES, CALCULATE AMOUNT 50 THAT THE 
ao9 REM - BALANCE DUE EQUALS #00.00 AFTER THIS PAYMENT 
470 IF CL<SON*®Y THEN 520 , 
420 RER+kKO 

490 A=AtTHO 

500 AlL=AL+B0 

510 BO=0 

S19 REM ~ SUM INTEREST PAID TO DATE 

520 Ie-Tertii 

529 REM - GUM INTEREST PATD THIS YEAR 

$30 I3=Is+li 

539 REM - SUM AMOUNT AMORTIZED THIS YEAR 

540 AG@=A2+H 

549 REM - START&&D PRINTING? IF YES, PRINT COMPUTED VALVES IN TABLE 
550 IF JO<xX THEN 5706 

560 PRINT Ji;" "311,484.59 ,if2 

570 WEAT Ji 

579 REM - LAST PAYMENT? IF YES, ROUND GFF, PRINT 

580 IF CASSN*Y THEN 600 

590 PRINT # LAST PAYMENT = #"! (CINT(R#1004+.5))/100 
599 REM - STARTED PRINTING? IF YES, PRINT YEARLY TOTALS 
600 IF 7O¢cxX THEM 640 

B10 PRINT 

620 PRINT “Y¥R."7 70313 ,A2 

630 PRINT 

639 REM ~ COMPLETED TERM? 

640 IF JOY THEN 720 

649 REM - REINITISLIZE VEARLY VARIABLES 

650 I3+0 

660 Ac=0 

670 WEXT JO 

679 REM - NEED TO PRINT A PARTIAL YEAR? 

680 IF ¥<>J0 THEN 262 

720) PRINT 

729 REM - RESTART OR END PROGRAM? 

730 PRINT "CHANGE DOTA AND RECOMPUTE? (1=VES, O=NO)": 
740 INPUT Z 

750 IF Z=i THEN 20 

7660 END 











OPTION 


You may wish to enter the term of payment in years and months rather than years. The program changes 
necessary are listed following the example below 


Example: 
if you took out a loan for $700.00 from a friend at 9% interest and were to pay $100.00 per month for 8 
Months, what would your repayment schedule be? 


core = . 
“ee os ma : a “set tae he:‘anepbawe. Seat ee ete ay weer ee a PR ca ERT 
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+ RUN 


MORTGAGE AMORTIZATION TABLE 


REGULAR PAYMENT? 100 

TERM IN VEARS, MONTHS? 0,8 
PRINCIPAL? 700 

ANHUAL INTEREST RATE? 9 


NUMBER OF PAYMENTS PER YEAR? 1¢e 
START PRINTING WITH WHAT YEAR? 1 


WO. 


aS ou Ft Oe 


Viz a 1 





MORTGAGE AMORTIZATION TABLE 
- PRINCIPAL $ 700 AT 9 % FOR O YEARS 8 MONTHS 
REGULAR PAYMENT = $ 100 


INTEREST AMORTIZED 


5.25 
4.54 
3.82 
Sid 
2.38 
1.64 
291 
216 
LAST 


2i.8 


CHANGE DATA 


END PROGRAM 


94.75 
95.46 
95.18 
96.9 

97.62 
98.56 
$9.09 
m1 ,64 

PAYMENT = $ @1.8 


700 


BALANCE ACCUM INTEREST 
605.25 5.25 

509.79 9.79 

413.61 13.61 

316.71 16.71 

219.09 19.09 

120.73 ' 20.73 

21.64 21.64 

0 . 21.8 


OND RECOMFUTE? (1L=YES, O=NO)? 9 


PROSRAM LISTING 


OPTION 56-65,350 


- PRINT "MORTGAGE AMORTIZATION TABLE” 


1 REM - 
a0 INPUT 
, 80 INPUT 
70 PRINT 
aH. PRINT 
850 “PRINT. 
350. PRINT 
760 END 
48 


50° PRINT “TERM TN ‘YEARS , 


eee 


YO WM, 


4 REM - CONVERT YEARS AND MONTHS TO YEARS 
“Ve ( 1BRYOHM) /12 one 


ee eee 


i 
— PRINCIPAL eae 
ae = 


REGULAR PAYMENT = - SER 


_. MORTGAGE ANORTIZAT ION. TABLE” _ 
AT'S T#1005 "8 R"3¥O3 "YEARS" st "0 
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Greatest Common Denominator 
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This program calculates the greatest common denominator of two integers. It is based on the Euclidean 
aigorithm for finding the GCD: 


1) Enter A,B 
F A = absolute value of A 

i B = absolute value of B 

2) Calculate # =A - B - (integer of (A/8 }) 
3) Is R =0?. If yes, the GCD =B 

If no, go to step 4 


R=f 
5) Go to step 2 


4) A=B 
4 


.  Exarmpis: 
Find the greatest common denominator of 50 and 18, 115 and 150. 


7 RUN 
GREATEST COMMON DENOMINATOR 


(ENTER ©O,0 TO ENR FROGRAM) 
ENTER TH HUMBERS? 50,16 
G,.C,.3! 2 


ENTER TWO NUMBERS? 115,150 
G.c.0e 5 


ENTER TWO NUMBERS? 0,0 


END PROGRAM 


PROGRAM LISTING 


10 PRINT "GREATEST COMMON DENOMINATOR" 
20 PRINT 

20 PRINT "(ENTER 0,0 TO END PROGRAM)" 

40 PRINT “ENTER TWO NUMBERS"; 

SO INPUT A,B 

59 REM - END PROGRAM? 

60 IF A<20 THEN 90 

70 IF B<>0 THEN 90 

80 GOTO iso 

89 REM - CALCULATE GCB ACCORDING TO EUCLIDEAN ALGORITHM, PRINT RESULT 
50 As=ABS(A) 

100 B=ARS(B) 

110 R=A-EXINT(A/B) 

120 IF R=0 THEN 160 

1206 A=Ei | 

1400 BER 


INT 


awe, 
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150 GOTO 110 

160 PRINT "G.C.D:"3B 

169 REM - PRINT BLANK LINE TQ SEPARATE SETS OF DATA 
170060 PRINT 

179 REM ~- RESTART PROGRAM 

180 GOTO 40 

190 END 
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Prime Factors of Integers 


. a 
This program lists the ptime factors of an integer. It will not test for the integer 0. 

zy ymples: 
What are the prime factors of -49? 
Factor 92 into primes. 

‘ Pay 

pene FACTORS OF INTEGERS 


- ryTER 0 TO END PROGRAM) 
' © SEER? ~AS 


i 
TEE 


ie 


“a:MBER? 92 

‘oo 4 2 

; pg # 1 
ABER? O 

“san PROGRAM 


- 


- 


as 


‘NOGRAM LISTING 


{0 PRINT "PRIME FACTORS OF INTEGERS" 
20 PRINT 
30 PRINT "(ENTER 0 TO END PROGRAM)" 
40 PRINT "NUMBER"; 
50 INPUT Z 
$9 REM - END PROGRAM? 
60 IF Z=Q THEN 800 
69 REM ~ THE SIGN OF THE NUMBER 15 ALWAYS A FACTOR 
70 PRINT SGN(Z) 
79 REM - USE ABSOLUTE VALUE FOR CALCULATIONS 
80 Z=ABS(Z) 
68 REM — LOUP TO TEST ALL INTEGERS (2 THROUGH Z) AS PRIME FACTORS 
65 REM - INTEGERS SQR(Z) THRU Z WILL HAVE NO NEW FACTORS 
90 FOR I=2 TO SQR(2) 
i100 S=9 
110 LF Z/I<>INT(Z/I) THEN 150 
300 ZaZ/I 
130 S=S+i1 
449 GOTO 116 
149 REM - FIND A PRIME FACTOR? IF YES, PRINT 
130 IF S=0 THEN 170 
‘S39 REM - PRINT FACTORS WITH EXPONENTS; 14S = I TO THE S POWER 
£0 PRINT 15°4"S 
4/0 NEXT I 
160 PRINT 
-39° REM ~ RESTART PROGRAM 
150 GoTa = 40 
“VO END 
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Area of a Polygon 
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This program calculates the area of a polygon. You must supply the x - and y -coordinates of all vertices. 
Coordinates must be entered in order of successive vertices. 


The formula used to calculate the area is: 


¢ : Area =(x tx ably gValt(xetxa)l¥a-¥ 3) + 11 (Xp + x,) “(yp-y 4) 12 


where n = the number of vertices. 


The number of vertices you may enter is currently limited to 24. You may increase or decrease this limit by 
altering statement 30 according to the following scheme: 


30 DIM Xin+1), Yint?) 


Example: 
Approximate the area of Lake Boyer. 
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s RUN 
AREA OF A POLYGON 


NUMBER OF VERTICES (ENTER O Tt END PROGRAM)? 14 
COORDINATES OF VERTEX 1 ? O,4 

VERTEX 2 7 1,7 

VERTEX 3 ? 4,5 

VERTEX 4 7 5,19 

VERTEX S ? i 

VERTEX 6 7 9,49 

VERTEX 7 ? 12.9 
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corte oe Gg STE ERE EAR ne AR Ee RL NE TET EIA SRN CE atte RO ATS OMT POE, po gent ae, NRTA PLES TA ATE ORS a REO ees 


sini tesa neva ate A mas ie taihnd Seamer ais ‘aa ii a RAE as alin OPA at SMS SE 
Ee 4 VERTEX 8 ? 14,8 
| VERTEX S$ ? 13.4 
z VERTEX 10 ? 15,4 
VERTEX 11 ?-15,1 
we VERTEX 12 ? 13,0 
VERTEX 13 ?-5,1 
ices VERTEX 14 ? 4,2 
AREA = 108 
| MBER OF VERTICES (ENTER 0 Tu END PROGRAM)? 0 
rub PROGRAM 
it by 
EROGRAM LISTING 
10 PRINT "AREA OF A POLYGON" 
20 PRINT 
59 «REM ~ COORDINATE ARRAYS SHOULD BE SET TO (NUMBER OF VERTICES +1) 
30 DIM X(25),Y(2S) 
40 PRINT “NUMBER OF VERTICES (ENTER 0 TO END PROGRAM)"; 
50 INPUT N 
S3 REM - END PROGRAM? 
60 IF t=0 THEN #830 
65 REM - LOOP TQ ENTER COORDINATES IN ORDER OF SUCCESSIVE VERTICES 
“0 FOR I=i TON 
89 YF Iyi THEN 110 
390 PRINT "COORDINATES OF VERTEX": 15 
100 GOTO 120 
110 PRINT ” VERTEX" $13 
120 INPUT X(1),V¢(T) 
1380 HEX? I 
i139 REM - FIRST VERTEX SERVES AS LAST VERTEX 
140 X(NtL)=X¢L) 
150 ViNti)=Vdi) 
160 A=0 
169 PEM - CALCULATE AREA, PRINT 
170 FOR I=1 TON 
180) AnAt (KIL ex(T41) FOV CD) -¥ (TFL) 
150 NEXT I 
200 «PRINT "AREA =";ABS(A) /e 
210 PRINT 
219 REM ~ RESTART PROGRAM 
eto «6GOTO.|6CU40 
230 END 
53 
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Parts of a Triangle 
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This program caiculates three unknown paris of a triangle when three parts are given. At least one part © 
given must be the length of a side. There are five possibilities for data entry: 
1) Angle, side, angle | 
2} Side, angle, side 
3) Angle, angle, side 
4} Side, side, angle 
5) Side, side, side 


Data must be entered in the order it appears in a triangle, either clockwise or counterclockwise. 


Example: 


The base of a triangle measures 14 inches. The base angles measure .45 and 2.1 radians. What are the 
measurements of the triangle? 





s RUN 
PARTS OF A TRIANGLE 


PROBLEM TYPES: 1=ASA,2@=SAS,3=AA5 ,42S54 ,5=SSS,6=END PROGRAM 
ENTER PROBLEM TYPE? 1 
ENTER ANGLE ,SIDE,ANGLE? .45,14,2@. 1 


SiDE 1 = 10.919 

OPPOSLTE ANGLE= .45 RADIANS 
SIDE @ = 21.67 

OPPOSITE ANGLE= @.1 RADIANS 
SIDE 3 = 14 

OPPOSITE ANGLE= .592 RADIANS 


ENTER PROBLEM TYPE? & 


END PROGRAM 
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PROGRAM LISTING 


10 
a0 
3d 
ai 
40 
48 
49 


50 


60 
70 
79 
#0 
30 
100 
110 
120 
136 
140 
150 
160 
170 
380 
190 
200 
210 
Pelt 
230 
240 
250 
260 
£70 
286 
250 
300 
3id 
320 
330 
340 
2S 
260 
370 
33G 
3390 
400 
440 
420 
430 
440 
449 
459 
455 
460 


470° 


480 


PRINT "PARTS OF A TRIANGLE" 
PRINT 

DIM A(3),5(3) 

REM ~ SET VALVE OF -PIL 
P=3.1415927 


REM - ENTER NUMBER OF PROBLEM TYPE ACCORDING TO KNOWN PARTS 


REM -~ OF THE TRIANGLE WHERE ASANGLE, S=LENGTH OF SIDE 


PRINT "PROBLEM TYPES: 1=ASA,2=SAS,3=A4AS ,4=55A,5=555,6=END PROGRAM 


PRINT “ENTER PROBLEM TYPE"$ 

INPUT X | 

REM - DIRECT PROGRAM TO PROPER CALCULATIONS 
IF X=G THEN 560 

IF X=S THEN 390 

IF %=4 THEN 300 

IF X=3 THEN 860 

IF X=2@ THEN 190 

PRINT “ENTER ANGLE ,SIDE,ANGLE"; 

INPUT A(1),5(3), ACB) 

AUB) =P-A(1L)-AC2) 

SZ) =S(B)HGIN (ACL) ) /SIH(A(B)) 
5(2)=5(3)*SIN(A(2) ) /SIN(A(3) ) 

GOTG 440 

PRINT “ENTER SIDE,ANGLE ,SIDE"; 

INPUT S$(B),4(1) ,S(2) 
S(1)=SGR(S(B) t@+S(2) t2-B*S (3B) 4S (2) #COS(AC1))2 
A(B)BGIN(A(L))/S(1)*S (2) 

A(R) SARCSIN(ACE)) 

AC3)=P-A(1)-AC2) 

COTO 440 

PRINT “ENTER ANGLE ANGLE SIDE": 

INPUT A(2),A(2) 83) 

A(1)=P-&(2)-A(3) 

GOTO 160 

PRINT "ENTER SIDE ,SIDE ,ANGLE"$ 

INPUT S(i),8(2),AGL) 

T=S(B¥STIH (ACL) ) 

IF S$(1)<T THEN 520 
$(3)=SQR(S(2)42-T42) 

LE S(1)<=T THEN 3380 

V=SQR(S(1)42-Tt2) 

S(3)2S(3)+¥ 

GOTa 220 

PRINT "ENTER SIDE,SIDE,SIDE"; 

INPUT S(1),S(2),S(2) 

A(1)3(S(2) 424563) 42-5 (1) 42)/B/8(2)/803) 
A(L)=ARCCUS (ACL)? 

GOTO 2820 

PRINT . 

REM - PRINT RESULTS 

FOR I-i TOR 

REM - THE ANGLE OF & TRIANGLE CANNOT BE LESS THAN ZERG 
IF A(I)<O THEN 526 

PRINT "SIDE" I:"="sINT(S(L)#10004+.5)/1000, 


PRINT "OPPOSITE ANCLE="$1NT (A(L)#1000+.5)/1000; "RADIANS" — 


twine . ; 
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490 NEXT I 

500 PRINT 

S510 GOTO 60 

520 PRINT 

S30 PRINT "NO SOLUTION" 
540 PRINT 

550 GOTO 60 

560 END 





OPTION 
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It may be more convenient for you to work with angles in degrees rather than radians. The program 


: changes necessary are listed following the examples below. 


. Examples: 
A square measures 8.76” x 8.76". What is the length of its diagonal? 


: 8.76" 


The ladder of a side measures 10’, the slide 14’, and it covers 13° of ground from base of ladder tc tip o 


slide. How steep is the slide? 





? RUM 
PARTS OF A TRIANGLE 


PROBLEM TYPES: 1=AS4&,2=SAS,2=AAS, 4=SSA,5=SSS,6=END PROGRAM 
ENTER PROBLEM TYPE? & 
ENTER SLDE,ANGLE,SIDE? &.76,50,8 278 


GIDE 1 = 12.389 
OPPOSITE ANGLE= 90 DEGREES 
GIDE @ = 0.76 


OPPASITE ANGLE= 45 DEGREES 
SIDE 2 = 5.76 
OPPOSITE ANGLE= 45 DEGREES 


56 


a ge eon MI COR Dale a aa le mre pee ag ee 


Saas TAD Rg, Swe Ere TTS 


eel pina gn VARS Ne Sakon te bi at fare paki Kobe ai tl tb Sas aS wth ward la ee he Soe 8 aver tabi iadbn ovililhioneneie ADEN cada eite is uote Bt a. the saci Sg iN int alia on tc Eee ee ery Ae. : 
= Be as Ce hae 


cHTER PROBLEM TYPE? 5 
ENTER SIDE, SIDE,SIDE? 10,13,14 


SIDE 4 = 10 
grrgstl ANGLE= 43.279 DEGREES 
SIDE & = 13 
OPPOSITE ANGLES 63.027 DEGREES 
SIDE 3 = 14 
ppPUSITE ANGLE= 73.694 DEGREES 


a ee 


a ee 


Hy 


a my reset age 


ENV ER PROBLEM TYPE? G 


END PROGRAM 


PROGRAM LISTING 


i REM ~ OPTION 44-45, 145-146 ,205 ,275-276 305,490 
PRINT "PARTS OF A TRIANGLE" 


40 PeQ.1415927 ek nee - | 
8h. REM <9 SET CONVERSION FACTOR FOR CONVERTING DEGREES TO RADIANS 
45° C= ,01745329287 ; ener : 

REM - ENTER NUMBER OF PROBLEM TYPE ACCORDING TO KNOWN PARTS 


| et Ci Hie hes Ie 2 Co a RATT ERIE F 
ee 


1 AB 
| 440 INPUT A(1),9(3) ALE) 
» £85 ACL BALL DAC 

of. 146 ALE SATE HC 
, 150 A(B)=P-ACL)-ACE) 
t ° 
f p00 «INPUT SiS), A(i1),S(2) 
| BOR ACL SACL) AC 
. @10 Side LSQRIS (3) fA+S (2) MEDS (SIFS(BI=COS(ACLI)) 
' B70 INPUT A(3).A(2),S¢3) 
1 BIS ACB) =ACB)EC 
i BIG ACE RACBDRC.. 
f =Bao ALL) =P- ~A(B)-AtB) 
B10. INPUT S(1),S(B) ACH) 
b a dae 
/ 3290 «CTHSle SIM ACL)) 


470 PRINT KSIDE"sIp "=" SINT (S(T )*1000+.« eee 
; 480 oP PRINT “OPPOSITE ANGLE= SINT (AIT /C# #1000 
: 4990 WEXT I 





560 END 
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* Analysis of Two Vecters 


This program calculates the angle between two given vectors, the angle between each vector and axis, and 
the magnitude of each vector. The vectors are given in three dimensional space. 





Example: | 
| Find the angle { 9) between a diagonal of a cube and a diagonal of one of its faces. The cube measures 
“4x 4x 4, 
(0,4,4) 
(4,4,4) 
(4,0,4} 
SRUN 
BHALVELS OF TWO VECTORS ~ 
VECTOR 1: X,¥,Z2? 0,4,4 ‘ 
VECTOR 2: %,V¥.2? 4.4,4 
Ls . yd 
VECTOR 4 5 z 
MAGNITULE: 5.6568542455 
ANGLES WITH X-AXIS: 90 .00000076465 
QNGLE WITH Y-AXIS: 45,.000000383257 
ANGLE WITH Z-AXIS: 45.00000038257 
VECTOR & ¢ 
MAGNITUDE: 6.92820323503 
ANGLE WITH X-AXIS: 54.73561075261 
ANGLE WITH Y-AXIS: 54.739561078e61 
ANGLE WITH Z-AXIS: 54.73551073261 
ANGLE BETWEEN VECTORS: 35.26438998282 
MORE DATA (1=VES, O=NO)? O 
END PROGRAM 
ya. 7 
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| ppOGRAM LISTING 


PRINT "ANALYSIS OF -TWO VECTORS” 

PRINT 

DIM X(2), V(B), 2(@), M(e) 

REM - STATEMENTS 40 TQ 70 REQUEST VECTOR COORDINATES 
PRINT "VECTOR 1: X3Y.2"$ 

INPUT X%(1),Y(1),2¢1) 

PRINT "VECTOR @: *4Y.2"3 

INPUT *(2) ,¥(2@),.2¢(2) 

PRINT 

PEM - LOOP TQ ANALYZE BOTH VECTORS 

FOR I=1 TOe 

REM - CALCULATE MAGNITUDE, PRINT 
M(L)SSGR(X(1)4#24V(2E)4@+2(1) 42) 

REM - IS VECTOR & POINT? IF YES, CANNOT COMPUTE AN ANGLE 
IF M(I)=0 THEN #20 

PRINT "“VECTOR";I;"s" 

PRINT "MAGNITUDE: "3M(1>) 

REM - CONVERSION FACTOR FOR RADIANS TO DEGREES 
§257.293578 

REM - CALCULATE ANGLE BETWEEN VECTOR AND X-AXIS, PRINT 
J=x(I)/M¢L) : 

PRINT “ANGLE WITH *-AXIS: "SARCCOS(J>*S 

REM ~ CALCULATE ANGLE BETWEEN VECTOR AND Y-AXIS, PRINT 
J=V¥ (1) /4¢2) 

PRINT “SGNGLE WITH Y-AXIS: ";SRCCOS(J)*5 

REM - CALCULATE ANGLE BETWEEN VECTOR AND Z-AXIS, PRINT 
JeZchy/M¢L) 

PRIMT "ANGLE WITH Z-AXIS: ";ARCCOS(I)FS 

PRINT 

NEXT 1 

J=0 

REM - IF EITHER VECTOR A POINT, CANNOT COMPUTE ANGLE 
IF M(1)20 THEN 310 , 

LF M(@)=0 THEN 310 

REM - CALCULATE ANGLE BETWEEN VECTORS 

Ja(X CL) EK CP DEV CLAY (204201 F202) ACL MCE) 

PEM - ARE THE VECTORS PERPENDICULAR? 

IF 3430 THEN 300 

J=90 

GOTG 310 

REM - CALCULATE SNGLE IN DEGREES, PRINT 
J=ARCCOS(J)#S 

PRINT "ANGLE BETWEEN VECTORS: "iJ 

PRINT 

REM - RESTART OR END PROGRAM? 

PRINT "MORE DATA (1SVES, O=NO}"S 

INPUT Z . 

IF Z=i THEN 26 

END 
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Operations on Two Vectors 
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This program performs four operations on two vectors given in three space. The operations performed are 


1) Addition. 

2} Subtraction 

3} Scalar (dot) product 
4) Cross product 


Example: 


Vectors are drawn from the origin to two points A(5,-1,2) and B(1,4,9). Add, subtract, and find the dot and 
cross product of these vectors. 


:RUN 
OPERATIONS ON TWO VECTORS 


VECTOR B: X.¥,Z COORDINATES? 1 24,3 


a+B= G6 ,3., ll 
A-B= 4 4-5 477 
&.B= 19 

AtB=-17 ,-43 , 23 


MURE DATO? (1=VES, O=MO)? © 


END PROGRAM 


PROGRAM LISTING 


10 PRINT "OPERATIONS ON TWO VECTORS" 

20 PRINT 

30 PRINT "VECTGR A: X;V¥,2 COORDINATES"; 

40 INPUT X1,Y¥1,2% 

SQ PRINT "VECTOR B: X,Y,Z COORDINATES"; 

60 INPUT X2,Y2,22 

70 PRINT 

79 REM - PERFORM VECTOR ADDITION, PRINT RESULTING VECTOR COORDINATE 
60 PRINT thee" *xXs4exPs", "sVitves","FZi+2e 

‘89 REM ~ PERFORM VECTOR SUBTRACTION, PRINT RESULTING VECTOR COORDINA: 
90 PRINT "AeBo"*xX$-xey","3¥i-¥25°,"321-Ze 

99 REM ~- CALCULATE DOT PRODUCT, PRINT 
100) PRINT Of Be" sXi#xe+yvieVe+Zitze 
109 REM - CALCULATE CROSS PRODUCT, PRINT RESULTING VECTOR COGRDINATE 
110 PRINT NAM Aa" SYLRZE-ZLAVE$ "y "PZLEXB-ML¥ZAz" "EXLEVEWVLEXE 
120) «PRINT 
129 REM - RESTART OR END PROGRAM? 
430 PRINT "MORE DATA? (1=VYES, OV=NO)";. 
140 INPUT XxX 
150 IF X=1 THEN 20 
460 END : 
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Angle Conversion: Radians to Degrees 
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This program converts an angle given in radians to degrees, minutes and seconds. 


Example: 
How many degrees, minutes and seconds are there in an angle of 2.5 radians? In 118 radians? 


RUN 
ANGLE 


ANGLE 


DEGREES 
MINUTES 
SECONDS 


ANGLE 


DEGREES 
MINUTES 
SECONDS 


ANGLE 


CONVERSION! RADIANS TQ DEGREES 


IN RADIANS (ENTER 0 TO END PROGRAM)? 2.5 
143 

14 

22.01 


no@ ti 


IN RADIANS? 118 
280 

54 

6.76 


Ho ff 


IN RADIANS? 0 


EMD PROGRAM 


FROGRAM LISTING 


19 
20 
30 © 
40 
50 


Fen, 
anak Ee oe re 


PRINT "ANGLE CONVERSIUN: RADIANS TG DEGREES" 


PRINT 

PRINT "ANGLE IN RADIANS (ENTER 0 TO END PROGRAM)"; 
GOTO 60 

PRINT "ANGLE IN RADIANS": 

InPUT R 


REM - TEST FOR END OF PROGRAM 
IF R=0 THEN 170 
REM - CONVERT RADIANS TO SECONDS 
A=3600*1604#R/3.1415927 
REM - CALCULATE NUMBER OF WHOLE DEGREES 
D=INT (A/3600) 
REM - CALCULATE MUMBER OF FULL CIRCLES 
DL=INT (D/3S60) 
REM - CALCULATE DEGREES OF ANGLE WIT HIN 360° DEGREES, PRINT 


PRINT " DEGREES *"; tag tDi 


REM - CALCULATE MINUTES , PRINT 

PRINT * MINUTES "5 TiNT ¢ (A-D¥BE00 3/60) 
REM - CALCULATE SECONDS , ROUND OFF, PRINT 
S=A-D#SGO00~-(INT ( (A-D#SGECO } /60) )*60 a 
PRIMT SECONDS =" TINT ¢,00*%5+ .5)/100 
PRINT 

REM PESTART PROGRAM 


. GOT 50 


END 
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OPTION 


You may prefer your answer in degrees and decimals of degrees rather than degrees, minutes and seconds. ~ 
The program changes necessary are listed following the example below. 








me 








Example: 
How many degrees are there in an angle of 2.5 radians? 


3 RUN 
ANGLE CONVERSION: RADIANS TO DEGREES 


ANGLE IN RADIANS (ENTER 0 TO END PROGRAM)? 2.5 
DEGREES = 143 on 


ANGLE IN RADIANS? 0 


END PROGRAM 


PROGRAM LISTING 


i REM ~- OPTION 110 
10 PRINT “ANGLE CONVERSINH: RADIANS TQ DEGREES" 


109 REM - CALCULATE DEGREES OF ANGLE WITHIN. 360 DEGREES, PRINT 
Fi0 PRINT "DEGREES =";IWT((DIAG0*D1)7 200% 5) 7/200, 
150° PRINT ——— | | 


490 END 
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Angle Conversion: Degrees to Radians 


aia 





el 


This program converts an angle given in degrees, minutes and seconds to radians. 


Examples: 
An angle measures 30 degrees, 5 minutes and 3 seconds. What would be the measure of this angle in ra- 


ans? 


What would be the radian measurement of two angles measuring 278°, 19’, 54” and 721°, 0°, O''? 
t RUN 
ANGLE CONVERSION: DEGREES TO RADIANS 
iTO END PROGRAM ENTER 9,0,90) 
ANGLE IN DEGREES MINUTES SECONDS? 30,5,3 
pADLANS = .52506766852416 


ANCLE IN DEGREES MINUTES ,SECONDS? 278,19,54 


: .PADIGHS = 4,6578038294516 


ANSLE IN DEGREES, MINUTES ,SECONDS? 721,0,0 
RADIANS = 4.74514900E-02 


ANGLE IN DEGREES ,MINUTES ,SECONDS? 0,0,0 Z 


ERD PROGRAM 


PROGRAM LISTING 
10 PRINT "ANGLE CONVERSIUN: DEGREES TO RADIANS " 





SO PRINT nn cece ng oe ee gemma ge ns ager pm eepaenergannen pennant meee ren pt 
30 PRINT. § (TO END PROGRAM ENTER OVO Oye 
40 PRIWT gigs IN DEGREES MINUTES SECONDS"; ae 
50 INPUT DMS. ey ) 

SS REM - TES s FOR EMD OF PROG RAM 

HO TF Died THEN 100 ee 

70 IF Mes THEN 100 

€EO IF §430 THEN i069 : 

50 GOTO ib 28 ig ae a8 be ee ce oe 
99° REM ~ CONVERT DEG 2REES , MINUTES, SECOHDS TO DEGREES = 
00) A=D+M/60+5/3600 ee ee ee 
109 REM - CALCULATE NUMBER OF COMPLETE CIRCLES 

110 REINT (4/360) 

115 REM - CALCULATE ANGLE WITHIN 360 DEGREES, PRINT 

120 PRINT “RADIANS ="s5A*.01745329-R#6 2831852 

120 PRINT 

133 REM - RESTART PROGRAM 

iSO) GOTO 40 

150 END 
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It may be more convenient for you to enter the angle in degrees and fractions of degrees rather ths: 
degrees, minutes and seconds. The program changes necessary are fisted following the example below. 


Example: 
How many radians are in an angle measuring 33.08°? 90°? 


~ 


: RUN 


ANGLE CONVERSION: DEGREES TQ #ADIANS 


(TO END PROGRAM ENTER 0) 
ANGLE IM DEGREES? 33.08 
RADIANS = .577354832e 


ANGLE IN DEGREES? 90 
RADIAWS = 1,5707961 


ANGLE IN DEGREES? 0 


END PROGRAM 


PROGRAM LISTING 


i REM ~ GPTION 3O-69 
{0 PRINT "ANGLE CONVERSION: DEGREES TO RADIANS" 
300 PRINT CTO END PROGRAM ENTER 0)" 
0 PRIn? "ANGLE IN DEGREES" 
SG INPUT & 
59 REM - TEST FOR END OF PROGRAM 
60 IF A=Q THEN 159 
199 REM - CALCULATE NUMEEX OF COMPLETE CIRCLES 


150 END 
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Coordinate Conversion 
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This program converts the coordinates of a point given in Cartesian coordinates to polar coordinates, and 
yice versa. 


The formulas for the conversions are: 


arctangent ( y/x ) 


A = 
x = r+ cosine (A) 
y = resine(A) 
where: x = abscissa : ; 
y = ordinate Cartesian coordinates 
r = magnitude of ray ' 6 
A = angle (in degrees) polar coorainates 


Examples: 
Find Cartesian coordinates of the point (2,30.5°) given in polar coordinates. 


if a point is at (7,18) in the Cartesian system, what are its coordinates in the polar system? 


A point is located at {0,-46.8}. What is its tocation in polar coordinates? 


: RUN 
COORDINATE CONVERSION 


( 1=CARTESIAN TO POLAR) 
{-1=POLAR TQ CARTESIAN? 
( OfEND PROGRAM) 

WHICH DIRECTION? ~1 

R.A? 2,930.5 

X2i1.72 , ¥ = 1.08 

WHICH DIRECTION? 3 

X,¥? 7,18 

R= 19.31 , A = GB.75 

WHICH DIRECTION? 2 

XV? 0,746.8 

R= 46.6 , & = &70 

WHICH DIRECTION? 0 


END PROGRAM 
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PROGRAM LISTING 


13893 
130 
00 
210 
2) 
230 
2S 

e4o 
25,0 
252 
266 
LOS 
270 
200 
2390 
300 
SLO 
ais 
Sigs 
320 
330 
33> 
246 
B49 
350 
360 
3/0 
see 


PRINT "COORDINATE CONVERSION" 


PRINT 

PRINT " _ ¢ L=CARTESIAN TO PCLAR)" 
PRINT * (-1=POLAR TO CARTESIAN)" 
PRINT " ( O=END FROGRAM)” 

PRINT "WHICH DIRECTION"; 

INPUT D 


REM - END PROGRAM? 

IF D=0 THEN 380 

REM ~ DIRECT PROGRAM TO PERFORM PROPER CONVERSION 

IF D=-1 THEN Sco 

REM ~- CONVERT FROM CARTESIAN COORDINATES TO POLAR COORDINATES 
REM - ENTER CARTESIAN COORDINATES (ABSCISSA, ORDINATE) 
PRINT "X,Y"3 

INPUT X,Y 

REM - POINT ON Y~AxIS? 

IF X=0O THEN 1°70 

REM - POINT ON X-AXIS? 

IF ¥Y=0 THEN 260 

REM - COMPUTE POLAR COORDINATES, ROUND OFF, PRINT 
PRINT "R ="sINi1 (SGN (X)#S0R (XFA+¥ 42)#1004.5)/1005","5 
PRINT " A =" INTCATN(Y/X) 4180/3 ..14159274100+.5)/100 
GOTO 60 

REM - POINT IS ON Y-AXIS; AT ORIGIN? 

IF VsQ THEN 240 

PRINT "RR ="sABSCYI5". "45 

REM - IS POINT ABOVE HR BELOW ORIGIN? 

IF ¥<O THEN 20 

PRINT " A = 90" 


6010 a8) 
PRINT § A = 270" 
GOTO 60 


REM - POINY IS AT ORIGIN 

PRINT "R-= 0, A =O" 

GOTO 60 

REM ~ POINT IS ON X-AXIS 

PRINT “R ="SABS (KISS 

REM - IS POINT TO LEFT OR RIGHT OF ORIGIN? 
IF X<O THEN 360 

PRINT *" &A = QO" 


GoTo 60 
PRINT " A = 1280" 
GOTO 60 


REM - CONVERT FROM POLAR CDORDIATES TO CARTESIAN COORDINATES 
REM -~ ENTER POLAR COORDINATES (MAGNITUDE OF RAY, ANGLE) 
PRINT "RAS 

INPUT R.A 

REM ~ COHVERT FROM-DEGREES TO RADIANS 

M=(A-INT (4/360 ) #360 ) #4. 1415927/180 

REM - CALCULATE CARTESIAN COORDINATES, ROUND OFF, PRINT 


PRINT "x =" 4IHT (RECOS(M)#1004 SI/19005 "1 "5 
PRINT " YY ="SINT(R#SIiN (4) *100+.5)/100 
coTa 60 

END 
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This program plots points on a set of coordinate axes. You must provide the x - and y ~coordinates of all 
agnts to be plotted, the endpoints of the x - and y -axes, and the increment between points on each axis. 


fe yy me aS ae 


The graph-is unconventional in that its x -axis runs vertically while its y -axis runs horizontally. In addition, 
se axes do not necessarily intersect at zero. A reminder as to where the axes intersect is printed at the top of 


gach graph. 
The limit on the number of points plotted may be increased or decreased by altering statement 30 in the 
* &dgwing manner. 


WRI t iemtbe 


30 DIM X(N+NYINTD 


where NW =the maximum number of points you wish to plot. 
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The length of the y -axis is limited by the width of your output device. This program tests for a length not to 
- exceed 70 spaces. The test at statement 90 should be altered to accommodate your particular output device. For 
' g output device with a line width of 112 characters you might enter: 


Lod 


' 90 IF BE<=108 THEN 120 


: Example: 
i The heights of tweive men and their sons are recorded in the table below. Plot the data points. 


father ( 5 | iE 5 69 [71] 
son 





ee ee 


height in inches 


mae ang Net Op ghee 


330 DIM X(13),¥(i3) 
RUN 

‘LQORDINATE PLOT 

f 
i x-aXIG! LEFT ENDPOINT, RIGHT ENDPOINT, INCREMENT? 62,72, .5 


YeAXTIS: LOWER EMDPOINT, UPPER EHDPODINT, INCREMENT? 62,73, .25 
WMBER OF POINTS TQ BE PLOTTED? 1a 


“SOORDINATES OF POINT 1 7 65,68 
‘ POINT £& 7 63,56 
: POINT 3 ? 67,68 
t POINT 4 9 64,55 
i POINT S ? 68,69 
POINT 6 ? 62,56 
j POINT 7 ? ¥0,68 
; POINT 8 7? 46,55 
i POINT 9 ? 68,72 
‘ POINT 10 % 67,67 
i POINT i1 ?-69,68 
POINT 12 ? 71,70 


a eta SOME Cerin ne eee 
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END PROGRAM 


PROGRAM LISTING 


id 
20 


PRINT COORDINATE Pit 

PRAT 

REM - DIMENSION OF *() AND Yq) SHOULD BE LIMITED To (Nei?: 
REM ~ WHERE N=THE NUMBER OF POINTS BEING PLOTTED, MAX. LIMIT oS 
DIM *(100),¥(100) 

REM - INPUT INFORMATION TO SET UP AXES 

PRINT "X-AXIS: LEF1 ENDPOINT, RIGHT ENDPOINT, INCREMENT "5 
INPUT Al, A®@, A3 

PRINT "Y-AXIG: LOWER ENDPOINT, UPPER ENDPOINT, INCREMENT": 
INPUT Bi, Be, BS 

B= (BA-B1)/B3 

REM ~ Y-AXIS TOO LONG FOR OUTPUT DEVICE? IF YES, CHANGE ENDPOTHTE 
REM - OR INCREASE INCWEMENT 

IF B2<s70 THEN 4120 

PRINT "“Y-RONGE TOO LAXGE” 

COTO 60 

PRINT "NUMBER OF POINIS TO BE PLOTTED "s 

LHPUT N 

REM ~ NO POINTS TO PLT? END PROGRAM 

IF N=0 THEN 1070 

REM ~ TOO MANY POINTS? IF YES, REENTER NUMBER OF POINTS 

IF H<=99 THEN 190 

PRIN’ "TOO MANY POINTS: " 

GOTO 126 
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OINT: 


179 
160 
190 
200 
210 
220 
230 
239 
e4.0 
250 
260 
269 
270 
280 
290 
299 
300 
310 
319 
320 
330 
340 
350 
360 
370 
380 
330 
400 
410 
420 
430 
440 
489 
450 
459 
460 
470 
480 
439 
450 
5.00 
505 
510 
S19 
520 
S29 
£30 
539 
S40 
S45 
550 
S60 
S70 
580 
559 
599 
660 
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PEM - LOOP TO INPUT X,Y COORDINATES FOR EACH POINT 
FOR I=si1 TON 
IF I>1 THEN ced 

PRICT "COORDINATES OF POINT "sis 

GOTO #230 

PRINT " POINT "SI; 

THPUY M(t) VCD) 

PEM - ROUND OFF EACH X,Y TO NEAREST INCREMENT ON AXIS 
(DT SINT ( Cx ¢2)-AL) /AS+ 5) 

WD) SINT ((¥ (1) -Bi) /BS+,5) 

NEXT I 

PEM ~ CALCULATE ADDITIOHAL X AND Y COORDINATE 
WiM+L)#INT (Be+ 5) +h 

NM UN4LISINT ((f2-AL)/ASt+. 5) 41 

PRINT 

REM - WOTE WHERE AXES CROSS 

PRINT “INTERSECTION OF AXES AT ("3A15","$B1;")" 
PRENMT 

mi ~ SORT COORDINATES; REORDER *(1) TO X(N) SMALLEST TO LARGEST 
FOR J=1 TO WN 

FOR I=t TO N-J 

Az=x (I) 

B=-Y¥ (IT) 

C=x(I+1) 

De¥(I+1) 

TF ACC THEN 430 

RIT) =O 

Y{R>=D 

(L411 )24 

V(i+i)=6 

WEXT I 

HEXT J 

REM - NEXT POINT TO BE PLOTTED STORED IN T 

T=h 

REM ~- SKIF POINTS QUT OF W-POSITIVE RANGE 

For P=0 TO N-1 

Te xM¢P+1)>=0 THEN 450 

HEXT P 

REM - LOOP TO CALL UP EACH X-INCREMENT FOR LINES OF PRINT 
FOR ¢#0 TO INT((AG-AL)/AS+.5) 

TeT+F 

REM - COUMT NUMBER OF POINTS TO BE PLOTTED ON EACH LINE IN P 
P= 

REM -~- ALL POINTS PLOTTED? 

IF Tot THEN 540 

REM - X-VALUE ON X-LINE? IF YES, TEST FOR Y 

IF M(T)=1 THEN 550 

REM - FIRST LINE? IF YES, Y-AXIS MUST BE PLOTTED 
IF %=0 THEN 570 

REM -— PLOT X-AXIS 

PRINT URES 

GOTO 1049 

S=h+h 

GOTO 986 

FOR t=T TON 

REM - NEXT POINT PLOTTED ON SAME LINE? 


“LF M(L)2M(T) THEN 6:30 
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609 
610 
620 
629 
630 
638 
635 
640 
650 
G60 
670 
680 
690 
700 
710 
720 
730 
740 
749 
750 
760 
763 
770 
TI9 
780 
78S 
730 
800 
810 
BiG 
B20 
B23 
B20 
8353 
840 
B50 
860 
869 
870 
889 


699 > 


890 
900 
910 
2a2 


920 | 


929 
930 
929 
940 
$495 
950 
960 
970 
900 
$90 
29000 
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REM - COUNT POINTS TO HE PLOTTED ON EACH LINE 
P=P+1 

NEXT L 

REM - PLOT ONE POINT 

IF P=1 THEN 730 

REM ~ LOOP TO SORT Y-COOGRDINATES WITH EQUAL X-COORDINATES: 
REM - REORDER SMALLEST TO LARGEST 

FOR J=i TO P 

FOR L=1 T0 P-~J 

D=¥ (T+L—1) 

B=¥ (f+) 

IF D<=B THEN 710 

VY(T+i~-1)=B 

¥(T4+L)=D 

NEXT L 

NEXT J 

FOR L=0 TO P-1i 

Z2=V(T+L) 

REM - TEST FOR QUT-OF-RANGE Y¥Y~-COORDINATE 

IF 2>=0 THEN 770 


NEXT & 


REM - POINT TO BE PLOTTED ON X-AX1S? 

IF I1=0 THEN 910 

REM ~ POINT TO BE PLOTTED ON Y-AXIS? 

IF Z=0 THEN 860 

REM - PLOT X-AXIS 

PRINT "#"; 

iF L=P-{ THEN 879 

FOR Js YO P-1 

REM ~ TEST FOR GUT-OF-RANGE Y-COUORDINATE 


IF 2>Be THEN 1040 


REM ~- BYPASS DUPLICAT: COORDINATES 
IF ¥CT+2)=2 THEN 860 

REM - PLOT POINT 

PRINT TABC2 35 "+" 5 

Z=¥ CT+T) 

YEXT J 

PEM - TEST FOR GQUT-OF-RANGE Y-COORDINATE 
IF £<O THEN 1046 . 
IF 2>Be THEN 1040 

REM - PLOT POINT 

PRINT TAREE S45 

GOTO 1040 

O=T +h. 

PEM - LOOP TO ESTAMRILISH PRINT FOR FIRST LINE 
FOR J=0 TO Be 

REM ~ POINT TO BE PLOTTED? 

IF ¥(G)<4<3J THEN L010 

REM - PLOT FOINT 

PRINY "“#"4 

REM - BYPASS DUPLICATE COMRDINATES 
FOR Kk=S TO T+P-i 

TF Y¢(K)=V(5) THEN 990 

B= 

GOTO 1020 

NENT 


GOTO 1029 
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1009 REM - PLOT Y-AXIS 
1910 PRINT "#"5 

1020 NEXT J 

s029 REM - LABEL Y-AXIS 
1030 PRINT "Y¥"5 

$039 REM - ADVANCE OUTPUT DEVICE TO NEXT LINE 
1040 PRINT 

1050 NEXT I 

$059 REM - LABEL X-AXIS 
1060 .PRINT "Xx" 

1070 END 
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Plot cf Polar Equation 
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This program plots a given function in polar coordinates. There are up to 90 points plotted, one every four 
degrees. (Some points may overlap.) 


The graph is conventional in that the x -axis runs horizontally, the y -axis_ runs vertically, and they intersect 


at zero. You need only specify the absolute value of the endpoints. 


The increment between each point on the x - and y -axes is adjusted so that a value of one on either axis is P 


SO 


et eee 


Ce a 


equidistant from zero. This allows the function to be plotted with minima! distortion. An adjustment of each in. | 


crement is necessary because of different spacing horizontally and vertically on an output device. (This prograr;. 
assumes ten spaces per inch horizontally and six spaces per inch vertically. if your output device differs, the graph 
may be distorted.) 

It is necessary for you to enter the function to be plotted before you run the program. The function must be 


entered as a function of d. f(d) will be entered and set equal to F at line 130. For exampie, the function 
f({d) =2-(1-cos{ d}) wili be entered as follows: 


130 F=2*(1-COS(D)> 


(Continued on next page) 
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i Example: 
‘ Plot the equation f(d) = 2+(i-cos{ d }). 


6330 Feat (1-COS(D)} 


» RUN 


Our PLOT OF POLAR EQUATION 


ARSOLUTE VALUE OF ENDPOINTS? 4 


INCREMENT OF X-AXIS 1233283233333 
INCREMENT OF Y-AXIS = .eepeePpereeeeee 
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END PROGRAM 
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PROGRAM LISTING 


10 PRINT "PLOT OF FOLAR EQUATION" 
PFO PRINT 
28 REM - COORDINATE ARRAYS SET FOR 90 POINTS; 
23 REM ~- ONE EXTRA X-COORDINATE IS CALCULATED IN PROGRAM 
30 DIM x*(81),V(90) . 
29 REM - NUMBER OF POINTS TO BE CALCULATED 
40 N=S0 
49 REM - ABSOLUTE VALVE Or ALL ENDPOINTS ARE EQUAL 
50 PRINT "ABSOLUTE VALUE OF ENDPOINTS"; 
60 INPUT Z 
70) = =PRINT 
79 REM ~ CALCULATE INCREMENTS OF AXES ACCORDING TO CHARACTERS PER Ax 
Is ; 
80 PRINT “INCREMENT OF X-AxXIS ="52/30 
30 PRINT “INCREMENT OF Y-AXIS ="32/18 
100 PRINT 
410 FOR Ii TON 
1i9 REM ~ CONVERT DEGREES TO RADIANS 
120) D=.0G698151741 
130 REM - ENTER FUNCTIGH HERE (F="FUNCTION") 
139 REM - CALCULATE EACH CARTESIAN COORDINATE, ROUND OFF JO NEAREST I 
HCREMENT ON AxiS 
140) X(LI=INTC CCF FCOS(D) /2+5 1#30)4+.5) 
$50 YC(L)SINT((C-FASIN(D) /Z4+1)*18)+.5) 
160 NEXT I 
169 REM ~ SORT COORDINATES; REORDER ¥(1) TO Y(N) SMALLEST TO LARGEST 
170) (FOR J=i 0 TON 
1380 FOR I=i 0 N-J 
130) AEX CT) 
266 Baytl) 
2iG TF B<eV¥(I+1) THEN &50 
BRO R(Lextatd) 
3 VYiL RHvile+s) 
240 X(I+ti =A 
250 Vt(I+ld=B 
260 NEXT £ 
270 NEXT J 
279 REM - NEXT POINT TO BE PLOTTED STORED IN T 
2£ekQ0 T=1 
269 REM ~ SKIP POINTS OUT OF Y-POSITIVE RANGE 
250 FOR P=G6 TO N-1 
300 IF Y(P+1)>50 THEN 326 
SiQ0 HEXT P 
oi REM ~ LOOP TQ CALL oe EACH Y~INCREMENT FOR LINES OF PRINT 
326 FOR I=G TO 36 
sitQ TsTtP 
339 REM ~ NUMBER OF POINTS TQ BE PLOTTED ON EACH LINE STORED IN P 
340 PQ 
349 REM ~ ALL POINTS PLOTTED? 
350 iF T>N THEN 370 
359 REM - Y-VALUE ON Y-LINE? 
S60 IF V(TI=FI THEN 420 
S69 REM ~ PRINT X-AxIS? 
37O IF T=18 THEM 400 


a79 
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REM - PRINT ¥Y-AxTS 
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360 
339 
acd 
a0 
820 
&30 
440 
450 
&60 
468 
869 
470 
420 
&50 
500 
510 
520 
530 
G40 
650 
559 
569 
570 
580 
590 
599 
600 
610 
619 
620 
629 
30 
O40 
649 
650 
660 
469 
670 
679 
$30 
630 
700 
709 
7190 
720 
730 
7353 
740 


759 


800 
820 
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PRINT TAB(SO)3"*"5 

GOTG 8690 

S=N+1 

GOTO 740 

FOR L=T TON 

REM - NEXT POINT TO Be PLOTTED ON SAME LINE? 
TE ¥itLoe¥¢T) THEN 450 

P=P+ } 

HEXT L 

IF P=i THEN 560 

REM -~ LOOP TO SORT ¥-COUIORDINATES WITH EQUAL ¥Y-COORDINATESS 
REM - REORDER SMALLEST TO LARGEST 

FOR J=1 TO FP 

FOR t=t TO P-J 

Cax(T¢+L—-i1) 

A=X(T+L} 

LE Cf=A8& THEN 540 

X(T4+L-L) 5A 


K(T+Lo= 

MEAT lL 

HEXT J 

REM - PRINT x-AxXITO’? 
If I=i8 THEN 730 
Le) 

G=0 


FOR K=O TO fet 


pon rie alata Te Ot Rr tt tla ie eb Sy Fae BA, < Wee ee het 


REM ~- MORE THAN GONE POLmY TO BE PLOTTED AT SAME POINT ON GRAPH’ 


ke yt] 4+h}eL TREN G68v 

L=x( P+) 

PEM ~ PLOT POIMY ON Y-AXIS? 

TF L200 THEN 660 

REM - FLOT POIMY TG THE LEFT OF Y-AXIS? 
TF L<30O0 THEN 870 

IF S<i THEr 679 

REM - PRINT Y-AxiS 

PRINT TAB(GO)3"*"s 

S=1 

REM - POIWT OUTSIDE OF POSITIVE M-RANGE? 
IF £260 THEN 660 

REM ~- PLOT POLAT 

PRINT TAB(LOS"+"s 

MEXT K 

IF G=i THEN 860 

REM ~- PRINT Y~-AKIS 

PRIMT TAB(SO35"3"5 

GCOTQG 860 

S=T 

Rem - LOOP TO PRINT LIHE OF x-AXIS 
FOR J=0 TO 60 

TF K(G)<3T THEN 820 

REM - PLOT POZHT OW X-ANIS 

PRINT "+" 5 

FOR K=S TO Tern 

LE XK) ex(S)> THEN 819 

Bk 

GOTO s4o0 

NEAT 
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20 
Bes 
830 
640 
845 
OSG 
Bad 

879 
873 
B80 
850 


GOTG 840 

REM - PRINT x-AxIS 
PRTMT site 

NEAT J 

REM ~ LABEL &*-AXIS 
PRIM6MT "x"3 

PRINT 

MEST I 

REM ~ LABEL V-AXIS 
PRINT TAR(30)3 "Vv" 
ENMbD 
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Flot of Functions 
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This program calculates and pilots up to nine functions. All functions must be functions of x , and ail will be 
plotted on the same set of axes. 


To set up the axes you must input the endpoints of the x - and y -axes. You must also state the increment 
by which the points on each axis are to be increased. 


The graph is unconventional in that its x -axis runs vertically while its y -axis runs horizontally. To read the 
graph you must either turn your output 90° counterclockwise or mentally adjust to the change in convention. 


The graph is alsc unconventional in that its axes do not necessarily cross at zero. A reminder as to where the 
axes cross is printed at the top of each graph. 
You must enter the functions to be plotted as program statements prior to running the program. Statement 


numbers 221 to 229 are reserved for this purpose. Functions must be entered in the number sequence Yi1), 
Y(2),.. . ¥{9). For example, if you wish to plot the functions f(x ) = 2x +1 and f (x) =./x, you must type: 


C2C2L VCLSHQtA+L 
222 V¥(2)=S5OR(xX) 
The length of the y -axis is limited by the width of your output device. This program tests for a length not io 


exceed 70 spaces. The test at statement 140 should be altered to accommodate your particular output device. 
For example, an outout device with a line width of 64 characters would accommodate a graph 62 spaces wide. 


You would change stateinent 140 to: 


140 IF Ve<=s62@ THEN 170 


Example: 
Plot the equations f(x) =cos{ x ) and F(x} = sinf x). 


reet ¥YC1L)=COS(*) 
2222 VY(RQ)B5TN(X) 
> RUM 

PLOT OF FUNCTIONS 


HUMBER OF FUNCTIONS TO BE PLOTTED? & 


X-AXIStLEFT EMDPOINT, RIGHT ENDPOINT, INCREMENT? -5,5, 225 
V-AXYTS!LOWER ENDPOINT UPPER ENDPOINT,IMNCREMENT? -2,2,.1 . 
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Y-AXIS AT Y=-2 


X-AMIS CROSSES 
SES X-AMIS AT X=-5 


YrAxIS CROS 
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END PROGRAM 


oe ve ape eee eT 8 * PE a rT eS PREY BAB * 
Be Gee en TEER MES GA RITES RLY ROTTED EOP wt TAR SINE A EN 8 TN SE ER GE. SSS etna ge SES 


1 ' ' 
2 bak NE ep me tet 
> re hip De ar a att YS ee ae te oe EE Fe 
SRMAS: Tae UM SURES Ae At yi Ve ASE ete Cage ¥ : 
SS Re RR RP EL NS A 1 FEE NS ar Pr 
Rh" oo PS Se See RE Rea ED Te EM ey ng ERA ee oh. — ret ‘ 
7 om b emt Ba at. Ty ME Tega Set ge 
™ ? act : ee 1 ee o 


AORN Et ot A NTI TL 


mec amibensealt pence Fou tal le i Gt a 


10 
20 
eo 
30 
£0 
aa 
50 
60 
62 


70 © 


80 

50 
100 
410 
120 
1e9 
430 
138 

29 
140 
150 
160 
170 
1BQ 
149 
190 
260 
210 
BLS 
£20 
cot 
230 
235 
24G 
E59 
259 
260 
265 
270 
230 
2389 
290 
200 
S16 
320 
S27 


329 


330 
340 
350 
360 
370 
SAO 


330 
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apoGRAM LISTING 


PRINT "PLOT OF FUNMCTIOHS" 


PRINT 
REM ~ NUMBER OF FUNCTIONS WHICH CAN BE PLOTTED IS LIMITED TO 9 


NIM VCS) ,ABCL1) 

FOR isi TO 11 

PEM - GET VALUES FOR AS-~ARRAY FROM DATA TABLE AT STATEMENT 479 
READ AS (IT) 

HEXT I 

REM - STATEMENTS 70 TO ico REQUEST USER INPUT 

PRINT “NUMEER CIF FUHCT1OHS TO BE PLOTTED" 5 


INPUT WN 
PRINT "xX-AXIS:LEFT EMHUPOLNT , RIGHT ENDPOINT ,INCREMENT "ss 


INPUT X1,xX2,%S 
PRIMT "Y-AxIS:LOWER ENDPOINT ,UPPER ENDPOINT , INCREMENT "5 


INPUT Y1,V2,Y3 
REM - CALCULATE NUMBEX OF SPACES ON Y-AXIS 


Yee (Yer-Vii/yo 


Latest ne NST aa mace A ae Na BEE ERM et ae iS Cadar Ge eae Bao aaa aie Ls wares 
rei Ma ch ee. 


rentkee oben git oan! 


REM - TEST FOR & Y-AxTS TOO LONG FOR OUTPUT DEVICE. IF YES, THEN 


REM ~- LESSEN RANGE OR INCREASE INCREMENT 


IF Yee=70 THEN 170 
PRINT "Y-RANGE TOO LARSE" 
GOTQ $190 

PRINT 

PRINT 


REM - MAKE NOTE OF WHERE AXES CROSS 

PRINT "X-AXLS CROSSES Y-AXIS AT V="s¥i 

PRINT "Y-AXIS CROSSES x-AXIS AT X="4xb 

PRIMT 

GEM - SET UP Loop TO READ VALUE AT EACH X-INCREMENT 
FOR x=Xi TQ x@ STEP x3 

REM -— FUP 
FoR I=) TON 

REM - ESTABLISH THE ROUNDED VALUE OF 
YCLI=INT CY CL) -VL) /VS+.5) 

NEXT 1 

REM ~ LOOP TO READ VALUE OF EACH Y-INCREMENT 
FOR r=0 TO Ye 

REM - S COUNTS THE NUMBER 
~S=0 

FOR J=i TON 


REM - PLOT A POINT ON THIS SPO 
IF VOJ)<9I THEM 3c0 

S=S+i 

T=J 


HEXT J 
REM - TEST FOR NUMBER OF POINTS TO PLOT ON EACH SPOT; 


REM - IE 0 PRINT "+" (FIRST LINE ONLY), IF 1 PRINT Fu 
LIF 2 OR MORE PRINT "“*" 

IF S30 THEN 360 

PRINT AK(SGN(L)+1023 

GOTO 406 

IF G1 THEN 359 

PRINT AS (T)3 

GOTO 400 

PRINT “#"3 


en ee 


Ce VALUES AT EACH Y-INCREMENT FOR EACH «A 


ICTIONS Y(1L) Ta ¥(S) SHOULD BE ENTERED AT LINES 221 TO eco 
Y FOR EACH X-INCREMENT VALUE 


a? 


T? IF YES, STORE FUNCTION NUMBER IN T 


INCTIOM NUMBER» 
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400 NEXT I 

409 REM - LABEL AXES AT THE LAST SPACE ON EACH AXIS 

410 IF x>X1 THEN 430° — 

420 PRINT "Y"5 | 

429 REM - ADVANCE PRINTER TO NEXT LINE : 

430 PRINT 
fag REM - PRINT SPACE INSTEAD OF "+" AFTER FIRST LINE OF PRINT (Y-Ax: 

440 Ag(iiy=" " 7 
450 NEXT X 

460 PRINT "X" 

470 DATA SC -ecL S 

‘480 END | 


gg 
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Linear Interpolation 





le EN A SS | 








ee 





—— a 





pea eeme na 
This program calculates the y - -coorcdinates of points on a line given their x -coordinates. It is necessary to 
know coordinates of two points on the same line. 
ne point is interpolated using the following formula: 


lyo-ya)e «(x- x4) 





a ot 


(x 9 - X4) 





yy, + 


coordinates of first point on the line 
coordinates of second point on the fine 
abscissa of point to be interpolated 
ordinate of the point on the line with x 


where: Xa, ¥4 
Xo V2 


* 
Ht uw 


Examptes: 


A. conversion table lists 60°F as 15.56°C and 90°F as 32.22°C. Calculate degrees Celsius of 73°F and 85.6°F. 


% has been imposed on us. What wiil be the tax on a sofa which sells for $455.68? 


Anew sales tax of 17.5 
: RUM ; 
LIHEAR IHTERPOLATI Or 
¥.Y OF FIRST COTMT? 6GO,15.56 
x,Y GF SECOND FOINT? 90,32 ,82 
INTERPOLATE: *% =? Ya 
Ys 22.779 


MORE POINTS ON THIG LINE (1= YES, O=NQ)? 1 


INTERPOLATE: X =? &5.6 
Y = 29.777 


MORE POINTS ON THIS LIHE (1=VES, O=NO)? 0 
NEW LINE (1eVES, O=NQ)? 1 
X,Y OF FIRST POINT? 0,0 
XV OF SECOND POINT? 100,17.5 
INTERPOLATE: X =? 455.68 

Y= 79.744 
MORE POINTS ON THIS LINE (1=VES, 0=NO)7 0 
NEW LIME (1=VES, O=N0)? 0 


EHD PROGRAM 
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PROGRAM LISTING 


10 
20 
29 
30 
40 
50 
60 
69 
70 
80 
B9 


. 90 


95 
100 
119 
120 
130 
149 
150 
159 
4.60 
170 
180 
190 


PRINT 
PRINT 
REM ~ 
PRINT 
INPUT 
PRINT 
INPUT 
REM -- 
PRINT 
INPUT 
REM ~ 


"LINEAR INTERPOLATION” 


ENTER X- AND Y-COGORDINATES OF TWO POINTS ON THE LINE 
"X,Y OF FIRST POINT"; ; 

mi Vi 

"X,Y OF SECOND POINT"; 

x2 ,Ye 

ENTER X-COORDIMATE OF POINT TO BE INTERPOLATED 
PINTERPGLATE: X ="; 

mx 
COMPUTE CORRESPUNDING Y¥-COORDINATE 


Vevite (Ve-¥1) A(XRn-XL DCX) 


REM — 
PRINT 
PRINT 
PRINT 
INPUT 
PRINT 


iF 2=1 
-~ INTERPOLATE ON AHOTHER LINE? 


REM 
PRINT 
INPUT 


IF 2=1l 


END 


ROUND OFF, PRINT 
n = "SINT (Y%1000+.5)/1000 


"MORE POINTS-ON THIS LINE (i =YES, O=NOQ)"5 
a“ 


THEN 70 . 
"NEW LINE (1=VES, 0=NO)"s 
i 


THEN 2G 
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L 1 4 
ARP AES piece cS aed atau Ew 


SMR SR ert 


gaat ae, errr ‘a “4° ead hin Seca atte x iz . . ‘ iS coach 
Rina crate at aha Ee AOE IME Mer: ss ca iA fe Ra ESSE GA wT aA RAB BME Wye xe Ri nt eta ae hii Pan 22 8h mle Be a 





ee eae 
i 
as a — oe a iipplaebest Gis ratte cn 
Curvilinear Interpolation 
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ims program computes y -coordinates of poinis on a Curve given their x -coordinates. You must input 


-upates of known points on the curve, no two having the same abscissa. 


Wo REE echt, ett 
a 


The computations are performed using the Lagrange method of interpolation. 


The number of known points on the curve which may be entered in the program is limited to 50. You may 
F _mase of decrease this lirnit by altering statement 30 according to the following scheme: 


30 DIM X(P), YP) 


spree cus yp 


where P = the number of known points on 4 curve. 


,emples: 
Consider the curve y * x 3_ 3x + 3. You know that the points (-3,- 15), (-2,1), (- 1,5), (0,3), (1,1), (2,5), and 


«+}}are on the Curve. What is the value of y when x =-1.65 and 0.2? 
hat ig the sine of -2.47 and the sine of 1.5? 


Poa 


Given the following points from @ sine curve, W 


(-6,.958) (6,9) 
(-4,,757) (4,.841) 
(-3,-.141) (2,.909) 
(--2,-.903) (3,.141) 
(-1,-.841) (4,-.757) 
(5,-.959) 
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b20 DIM X(ib), YALL) 
PUN 
RVILINEAR INTERPOLATION 


1 


aNgeR OF KNOWN POINTS? 7 


'..y¥ OF POINT 1 ? 3,715 
oY OF POINT & 0 fyi 
(OY OF POINT 3 ? ~1,5 
Lid OF POINT 4 ? 0.3 
PM OF POINT 67 2,5 
(Y OF POINT 7 ? 3,214 


LINERPOLATE: X#? v1.65 
7 Y= 3,.457974999999 


ORE X ON THIS CURVE (LeVES, d=HQ)? 4 


_ NTERPOLATE:? va? JB 
Ye 2.400000000002 


TPE X ON THIS CURVE (1=VES, 05HO)? 0 
[EX GN ANOTHER CURVE (12VES, O=NQ)? 4 


MBER OF KNOWN POINTS? ii 
NY OF POINT 4.27 ~5,.980 
SY OF POINT @ ? 41-73: 
LY OF PQINT Bo? ~S17 444 
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OF POINT 4 ? -2,7.90% 
GF POINT 5S ? -1,~.841 
OF POINT 6 ? 0,0 

OF POINT 7 7 1,.841 
DF POINT 8 ? 2,.909 
GF POINT 9 7? 3,-141 
QF POINT 10 7? 4,-.757 
OF POINT 11 7? 5,~.955 


INTERPOLATE: X=? -2.47 


=~ 6218395970637 


“MORE X ON THIS CURVE (1=VES, O=NG)? 1 


' INTERPOLATE: X=? 1.5 


Y= .9971657922669 


MORE X ON THIS CURVE (1=YES, D=NO)? 0 
MORE X ON ANOTHER CURVE (1=VES, O=NO)? O 


EHD PROGRAM 


PROGRAM LISTING 


10 
20 
26 
ES 
3G 
Bi} 


200 


219 
229 
PAO 
2329 


P60 
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Fe geen me RMA et re Se 


PRINT "CURVILINEAR INTERPOLATION" 
PRINT 

REM - LIMIT *0) AND YO) TO MAXIMUM NUMBER OF POINTS KNOQWM ON ANY 
REM ~ CURVE TG BE ENTERED 

MIM XK(50), ¥C50) 

PRINT "NUMBER OF KNOWN POINTS"; 

INPUT PP 7 

FoR I=), TO P 

pet - ENTER COQRDINATES OF KNOWN POINTS ON CURVE 

PRINT “X,Y OF POINT" T3 

INPUT X(Z),¥CL) 

NEXT I 

PRINT 

REM - ENTER X-COORDINATE OF POINT TO BE INTERPOLATED 

PRINT "INTERPOLATE: %="5 

INPUT 4 

B=0 

REM ~ COMPUTE CORRESPONDING ¥-COORDINATES BY LAGRANGE METHOD OF 
REM ~ iM1TERPOLATION 

FOR J=i1 TO P 

Ti 

FOR I=i TOP 

YF f=J THEN 189 

THe (A-X( Ld / CX CTW XCT DD 

NEXT I 

B=B+7T#¥ (J) 

NEXT J 

REM ~ PRINT RESULTS 

PRINT " Y="3b 

PRINT 

REM - INTERPOLATE MOXE FOINTS ON SAME CURVE? 
PRINT "MORE X ON THIS CURVE (1°VES, Q=H}) + 
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ag IMPUT C 


oe0 IF C=t THEN 
go REM - RESTART OR END HROGRAM? 
370 PRINT “MORE X ON ANOTHER CURV 
ag0. INPUT C 

530 IF C=) THEN 


390 END 
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Integration: Simpson's Rule 








This program approximates the definite integral of a function. The integral is computed using Simpson's 
rule. ‘ 


The method the program takes is optional: you must supply either the function of the curve or values of the 
function at specified intervals. For both methods you must enter the limits of integration and the increment bet- 
ween points within the limits. 


if the function to be integrated is known, it must be entered before running the program. The function will 
be defined at line 50. For example, the function f(x} =x ° will be entered as follows: 


50 DEFENC(X)=x43 


Examples: ; | 
Find the definite integral of the function f(x) =x? between 0 and 2 with increments of .2 and .1. 


What is the integral of a curve between -1 and 1 if the points known are es follows: 


(-1,.54) (.25,.969) 
(-.75,.73} (.5,.878) 
(-.5,.878) (.75,.73) 
{-.25,.969) (1,.54) 
(0,1) 


$50 DEFFNC (x)= ts 
2 PRUs 
INTEGRATIGN: SIMPSON’S RULE 


SELECTION: LskhMOUM FORMULA, O=UNKNOWN FORMULA? 1 
LOWER, UPPER LIMIT QF INTEGRATION? 0,28 

INCREMENT OF X? oe 

THTEGRAL TS 4 


EMD PROGRAM 


¢ RUN 
INTEGRATION: SIMPSON’S RULE 


SELECTION! 1=KNOWN FORMULA, O=UNKNOWN FORMULA? J 
LOWER, UPPER LIMIT OF INTEGRATION? 0,2 

INCREMENT OF X? of 

INTEGRAL IS 4 


END PROGRAM 

*RUN 

INTEGRATION: SIMPSOH‘S RULE 

SELECTION: L=KNOWM FORMULA, OSUHKNOWN FORMULA? 0 
LOWER, UPPER LIMIT OF INTEGRATION? -1,1 


SMCREMENT CF 2? 625 
FIRST, LAST VALUE OF Fix)? .54,.54 
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value OF FOO) AT INTERVAL 


A tte: 5 
Se ro eS Cc en ta ah cee SS Etc as in ae: i a 


seh ane weds wis ieee ae etek tp aa pial ga dite Des hg Hem GEO ces Said cae stig cesiee 7 a ae og 
air a at Nc i a th hae nen hatin EI a pi el nad tht in tae ia a ne Rai id Seine Vi cata ail 


(xs-.75 )? .73 
(X=-.5 9? .676 
(x=-,25 97 .963 
(x= 0 97 1 


vaLUE OF F(X) AT INTERVAL 


TALUE OF F(X) AT INTERVAL 


WOU Ge 


waUE OF F(X) AT INTERVAL (x= .2@5 )? .969 
vaLVE GF FOX) AT INTERVAL (x= .5 39? .B768 
(x= .75 1)? .73 


yvaALUE OF F(X) AT INTERVAL 
INTEGRAL IS 1.682 


cHD PROGRAM 


PROGRAM LISTING 


10 PRINT “INTEGRATION: SIMPSON ’S RULE" 


20 PRINT 
30 PRINT "SELECTION: iL=KHOWN FORMULA, O=UNKNOWN FORMULAS 


40 INPUT S 





49 REM - IF FUNCTION IS XNOWN ENTER AT LINE 50 (DEFFNC(X)="FUNCTION") 


S50 DEFFHC CX) =x 
60 PRINT "LOWER, UPPER LIMIT OF INTEGRATION"; 


70 (INPUT A,B 
8O PRINT "INCREMENT OF X"4 
90 INPUT XL 


39 REM - INCREMENT MUST DIVIDE INTERVAL INTO EQUAL SUBINTERVALS;: 


99 REM - IF NOT, CHANGE INCREMENT 
100 IF (RA) /ML SINT (CRA) /x1) THEN BO 


$10 IF Gai THEN 150 
41495 REM - FORMULA NOT KNOWN ENTER FUNCTION VALUE AT INTEGRATION Lakeia das 
120 PRINT "FIRST, LAST VALUE OF F(x)" Y 
130) «LeeUT V1,Ve 
140) 6©GOTO 6470 
149° REM - FORMULA KNOW; CALCULATE F(*) AT INTEGRATION LIMITS 
150 Yi=SFHCCAD 
160 YO=sFNC(B) 
170 «C=O 
180 D=0 
189 REM ~ LOOF FOR EACH SUBINTERVAL 
130 FOR I=1 TO (B-A)/X1i-.S 
200 IF S=1 THEN ©&40 
209 KEM - ENTER KNOWN FUNCTION VALUE AT EACH INTERVAL 
210 FRINT "VALUE OF F(x) AT INTERVAL. "SLE" X=" 5 At LEXLS 80'S 
220 INPUT Y¥ 
e230 GOTO P50 
239 REM - CALCULATE F(X) AY EACH SUBLYTERVAL 
240 Y=FNC(AtL#2zL) 
249 REM - INTERVAL EVEN OX ODD? 
250 IF L/BsINT(i/2) THEN 280 
255 REM - SUM ALL ODD-INTERVAL FUNCTION VALUES 
260 C=Ctry , 
270 GOTG #290 
279 REM - SUM ALL EVEN-INTERVAL FUNCTION VALUES 
210 Dsp+¥ 
290 NWExT I 
299 REM - COMPUTE INTEGRAL, PRINT 
300 PRINT “INTEGRAL Sexi /S# (¥1L4+44C+24D+ V2) 
310 END 
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integration: Trapezoidal Rule 


——— en sete cea ee eee re 


This program approximates the definite integral of a function. The integral is computed using the trapezci- 
dal rule. You must provide the limits of integration and the number of intervals within the limits. 


The function to be integrated must bs entered before running the program. The function of x will be defined 
at line 30. For example, the function f(x) =x 3 will be entered as follows: 





20 DEFFNCi*) =x43 


Examples: | 
Find the definite integral of the function f(x} =x 3 between 0 and 2 with 10 and 20 intervals. of 


Find the definite integral of the function f(x) =x -2 between 1 and 2 and 2 and 3 using 10 subintervals. 


230 DEFFMC(X) =x 
7 RUN 
INTEGRATION: TRAPEZOIDAL. RULE 


{ENTER 0,0 ya END PROGRAM) 

INTEGRATION 1 IMITS {LUCIWWER , UPLER)? O.e 
HUMBER OF INTERVALS ? 10 

INTEGRAL * 4.04 


LHTEGRATION LIMITS (LOWER, UPPER)? 0.2 
HUMBER CF INTERVALE ? rea) 
THTEGRAL = & Ok 


INTEGRATION LinitTs (LOWER » WEPER)? 0,0 


EMD PROGRAM 


220 DEFFNC (X) ={/xXFe 
¢ RUE 
INTEGRATION: TRAPEZOITDAL RULE 


(ENTER 0,0 TO END PROGRAM) 

INTEGRATION LIMLTS (LGWER, UPPER)? 1,8 
NUMBER OF INTERVALS? 10 

THTEGRAL = (GBOLaS51 274644 


INTEGRATION LIMITS (LOWER » UPPER)? 2.5 
HUMBER OF INTERVALS? 10 
THTEGRAL = 16691318133 
INTEGRATION LIMLTS (LOWER » UPPER)? 0.0 


END PROGRAM 
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PRINT “INTEGRATION: TRAPEZOIDAL RULE" 

PRINT 

REM ~ ENTER FUNCTION HERE (DEFFNC(X)="FUNCTION" ) 
PRINT "(ENTER 0,0 TO EWD PROGRAM)" 

PRINT “INTEGRATION LIMITS (LOWER, UPPER)"; 
INPUT A,E& 

REM ~ END PROGRAM? 

IF A=B THEN 190 


PRINT "NUMGER OF INTERVALS "$ 


INPUT fh 

I=0 

REM - D 1S THE SIZE OF EACH INTERVAL 
D=(B-4) /N 

REM - ADD UP THE AREA CF EACH TRAPEZOID 
FOR J=A TOB STEP D 

I=I+FNC(s) 

NEXT J 

REM - COMPUTE INTEGRAL, PRINT 

T=(0- (FHC CA 4FNCIB) ) Jct FD 

PRINT "INTEGRAL ="G1 

PRINT 

GOT Bo 

END 
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integration: Gaussian Quadrature 





alee ee re eerie ao 




















This program approximates the definite integral of a function. You must provide the limits of integration and 
the number of intervals within. the timits. 


The interval of integration is divided into equal subintervals. The definite integral is computed over each su- 
binterval using Gauss’ formula. The integrals of the subintervals are summed to give the definite integral of the 


full interval. 


You must enter the function to be integrated before running the program. The function of x will be defined 
at line 30, For example, the function f(x} =x 3 wili be entered as follows: 


30 DEFFNC(X)=Xt3 


Examples: 
Find the definite integral of the function f(x) = x? between 0 and 2 with 10 and 20 subintervals. 


Find the definite integral of the function f(x } = x -? between 1 and 2 and 3 using 10 subintervals. 


2:36 DEFFNC(X)=xX43 
» RUN 
INTEGRATION: GAUSSIAN QUADRATURE 


SHTEGRATION LIMITS (LOWER UPPER)? 0,2 
NUMBER OF INTERVALS? 10 
THTEGRAL = 4.900000027887 


CHANGE DATA AND RECOMPUTE? 

(QSNO, Lee INTESRPATION LIMITS, @=NEW NO. OF INTERVALS)? 2 
NUMBER QF INTERVALS? 20 

IMTEGRAL = 4, G000000R27968 


CHANGE DATA AND RECOMPUTE? 
(O=HO, L=NEW IMTEGRATION LIMITS, @=HEW NO. OF INTERVALS)? 6 


END PROCRAM 


230 DEFFNC(X)=1/X%42 
» RUN 
SHTEGRATION: GAUSSIAN QUADRATURE 


INTEGRATION LIMITS (LOWER.UPPER)? 1,2 
NUMBER OF INTERVALS? 10 
INTEGRAL = .5000000034951 


CHANGE DATA AND KECOMPUTE? 

(O=NO, JLeNeW INTEGRATION LIMITS, @=NEW NO. OF INTERVALS)? 1 
ANTEGRATION LIMITS (LOWER ,UPPER)? £2,393 

NUMBER CF INTERVALS? 16 

INTEGRAL = .166G6566783924 
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ee DATA AND RECOMPUTE? 
L=NEW INTEGRAYION LIMITS, @=NEW NO. OF INTERVALS)? 0 


= PROGRAM 


gRAM LISTING 


PRINT “INTEGRATION: GAUSSIAN QUADRATURE" 


a, PRINT 
gem - ENTER FUNCTIGN HERE (DEFFNC(X%}="FUNCTICN") 


iON 


DATA .07652@65e1,.158753395 , P27728585, 14917299, 27370609 
DATA .14609611,,.510867,. 13166064, .63605S68,.11 819452 

DATA .74633191,-.1019301e, .83911697, 088276742, -91L23443 
-) DATA .062672046, 96397193, 04060143, .9951286, 2017614007 


20) PRIWT “INTEGRATION LIMITS (LOWER ,UPPER)"$ 
30 INPUT X,Y 

0) PRINT “NUMBER QF INTERVALS"; 

‘49 INPUT N 

2G) BR(Y<R/N/e 

500 Tex4+S 


14006 R=O 


93 REM ~ 


‘59 06 FGR 
40 6 6P=O 
‘33 =~REM 
70 FOR 


COMPUTE INTEGRAL FOR EACH SUBINTERVAL 
i=l TOWN 


+ COMPUTE SUMMATION FACTOR FOR EACH SURINTERVAL 


Js} TO 10 


2280 READ A,B 

99 PRP+E (FNC (SAAtT ) +FNC(T-GHAD) 

280 NEXT J 

20 RESTORE 

20) RER+P*S 

[200 T=T+2#9 

39 NEXT I 

230 PRINT “INTEGRAL ="5R 

£20 PRINT 

[70 PRINT "CHANGE DATA AND RECOMPUTE?" 
50 PRINT "(OSNO, L=NEW INTEGRATION LIMITS, @=NEW NO. OF INTERVALS)": 


230 INPUT S 


ae a eet tae: 


30 IF 
110 oF 


S=1 THEN 80 
G=f THEN 100 


320 END 
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49 REM ~ ABSCISSAS AND WEIGHT FACTORS FOR 20Q~POINT GUASSIAN INTEGRAT 
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This program calculates the derivative of a given function at a given point. 


You must enter the function being evaluated before you run the prograrn. The function will be entered in « 
definition statement at line 30. For example, to evaluate the equation f(x) =x? + cos(x } you would enter ths 
following: 


BO DEFFNC(X) =x4e+COS (xX) 


' Example: | 
Catculate the derivative of the equation x 2 + cos(x) =O when x =-1, x =0, and x = 1. 


'SO DEFFMC(X) =x te+COS (x) 
«RUN 
DERIVATIVE 


(EMTER %=99999 TG END PROGRAM) 
PERLVATIVE AT X=? <1 
. IS-1.1585¢8756rr4 

DERIVATIVE &T X=% 0 

IS 1.53609000E-02 
DERIVATIVE AT xe? 1 

IS 1.1585¢8797696 
DERIVATIVE AT X=#? 99999 


EMD PROGRAM 


PROGRAM LISTING 


$0 PRINT "DERIVATIVE" 

20 PRINT 

30 REM - EMTER DEFFNC(%) HERE 

40 PRINT "(CENTER xX=99993 TQ END PROGRAM?" 

50 PRINT "DERIVATIVE AT x="3 

60 MNPUT XE 

69 REM - TEST FOR END OF PROGRAM 

FO IF x*i=99599 THEN 160 

BO D=4 

99 REM ~ CALCULATE DIFFERENCE QUOTIENTS FOR POINTS APPROACHING x 
90 FOR N=1l TO 10 

100 Di=p 

110 MexXlL4+.54¢N 

$P0) D=(FHCIM)-FNC(XL DD /(UX-X1) 

430 NEXT WM 

1235 REM ~ GPPROXIMATE DERIVATIVE OF FUNCTION AT X, PRINT 


140 PRINT ° 1S"527D-01 
149 REM - RESTART PROGRAM 
150 «GOT 0 
160 END 
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Roots of Quadratic Equations 
. ee eoier: eae ree cree 








This program calculates the roots of a quadratic equation. The equation must be in the following form: 


ax2 + bx + c=O0 


where a,b,c are real coefficients. 


The formula used to calculate the roots Is: 


~ bi fb 7-4 ‘aoc: 


— 








root = 
2°4 


Example: 
Compute the roots of the following equations: 


2x? + x-1=0 
x2 4+ 4x + 6 =0 


s RUM 
ROOTS GF QUADRATIC EQUATIONS 


COEPPICLENTS &.2 JC? @,1,74 


HORE PETA CLSVES, O=NO)? 2 


COEFFICIENTS A,B,C? 1,4,6 
ROOTS (COMPLES)s -Pp + OR - 1 .414P1356235 1 


MORE DATA (1=YES, O=NG)? O 


END PROGRAM 


PROGRAM LISTING 


$0 PRINT "ROOTS OF GUADRATIC EQUATIONS" 

20 PRINT 

my REM - ENTER COEFFICIENTS 4,.B,C OF AXX4 + BEX + © 
3) PRINT "COEFFICIENTS A,B,C" 

49 INPUT 4,5,¢ 

50 SsEta-4#Arc 

60 R=SGR(ABS(S)) 

69 REM - COMPLEX ROOTS? 

70 IF S<O THEN 200 

35 «PEM ~ CALCULATE ROOTS, LASEL, PRINT 

§G PRINT “ROOTS (REALS: we (HR-RI/ (READS ws ¢-BtR) /{REA) 

99 ¢OTQ 119 

100 PRINT "ROOTS (COMPLEX): ms By (BHA); " + OR —"sR/(BIAIT" I" 
{1000 PRINT | 

119 REM - RESTART 07% END PROGRAM? 
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PRINT “MORE DATA (12VES, O=NQ)": 
INPUT xX 

IF X=1 0° THEN 20 

END 
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Reat Roots of Polynomials: Newton 








nn 
This program calculates real routs of a polynomial with real coefficients. You must give an estimate of each 


root. . 
The calculations are performed using Newton's method for approximating roots of equations. The value of 
the error and derivative are included for each root calculated. 


The equation you enter is presently limited to a degree of 10. You may enter a larger degree of equation by 
atering statements 30 and 40 of the program according to the following scheme: 


30 DIM AWV+1)  BIN+D 
40 FOR I=i1 TO N+7 


where NV = degree of equation. 


Example: 
Find the roots of 4x *- 2.5x?-x + 0.5 


+ RUN 
REAL ROOTS OF POLY NOMIALS: NEWTON 


DEGREE OF EQUATION? 4 
COEFFICIENT A( O 27? . 
CNEFFICIENT AC 2 0? = 
COEFFICIENT AC & 3? - 
COEFFICIENT At 3S 1? 0 
COEFFICIENT &¢ 4 9? 4 


TO re bi 


oo) 


GUESS? ~.8 
ROOT ERROR DERIVATIVE 
203576340R050 ~1 40000000E-13 ~-e 2070247000453 


ANOTHER VALUE (12"VEG, O=N0O)? G 
ANOTHER FUNCTION (1=YES, 0=NO)? 0 


END PROGRAM 


PROGRAM LISTING 


10 PRINT "REAL ROOTS GF POLYNOMIALS: NEWTON" 
20 PRINT 


23 REM - LIMIT AC) AND Bt) TO N+i¢ WHEN THIS IS DONE, LOOP AT LINE 40 


PY REM -~ SHOULD BE SET TU TEST FROM 1 TO Nt+1i 


30 DIM A(ii),BC11) 

39 REM - INITIALIZE ARRAY VARIABLES 

40 FOR I=i TO 13 

50 A(T)=0 

60 B(I)# 

70 NEXT IT 

80 PRINT "DEGREE OF EQUATION"; 

90 INPUT ft 

100 FOR t= TO N+i 

109 REM - ENTER COEFFICIENTS IN ORDER OF LESSER TO HIGHER DEGREE 


$6 
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110 
120 
136 
140 


i50 
160 
170 
179 
180 


~190 


200 
210 
220 
230 
239 
240 
250 
259 
260 
26S 
270 
20 
250 
E39 
200 
309 
340 
319 
320 
Ke fos] 
S20 
346 
350 
360 
370 
3é 4 a0 
330 
400 
410 
41S 
aa 

430 
20) 
449 
450 
4660 
470 
4650 
439 
499 
590 
510 
520 
520 
540 
550 


PRINT "COEFFICIENT AC"rI=49") 46 
INPUT A(I) 

NEXT i _ 
FOR I=1 TO 10 7 
REM ~ CALCULATE COEFFICIENT OF DERIVATIVE OF POLYNOMIAL 
B(L)=A(L+1) #7 

NEXT I 

PRINT 

REM - INITIALIZE GUESS 

PRINT "GUESS"; 

INPUT x 

a=0 

S=1 

Fi=0 

FO=0 

REM - COUNT ITERATIONS 

Q=Q+4 

FOR Imi TO Nei 

REM - CALCULATE VALUE OF FUNCTION 

FOSFOtA( I) #5 

REM ~ CALCULATE VALUE OF DERIVATIVE 

FLi=FItE(1 as 

G=S¥x 

NEXT I ; 
REM - TEST FOR & ZERG DERIVATIVE; IF VES, STOP SEARCH. PRINT 
IF Fi=0 THEN 360 

REM - GET NEW GUESS USING PREVIOUS GUESS 

S=X-FO/Fs 

REM - IF NEW GUEGS = LAST GUESS THEN STOP SEARCH, PRINT 
IF Xe THEN 360 

REM - SAVE LAST GUESS 


REQ 
IF @>300 THEN 490 
GOTQ id 


PRINT "DERIVATIVE = 0 AT X =°:x 

COTO iso 

PRINT 

PRINT " ROOT"," ERROR", DERIVATIVE" 

PRINT X,FO,F4 

PRINT : 

REM - RERUN TO FIND ANOTHER ROOT IN SAME FUNCTION? 

PRINT “ANOTHER VALUE (1=VES, O=NO)"3 

INPUT A 

iF A=1 THEN 1°70 

REM ~ RESTART OR END PROGRAM? 

PRINT “ANOTHER FUNCTION (1=VES, O=NO)"$ 

INPUT 4 

LF AF1 THEN 30 

GOTO 550 | 
REM - PRINT CALCULATED VALUES AFTER 100 ITERATIONS: SEARCH 100 MOK: 
PRINT “100 ITERATIONS COMPLETED: * 

PRINT "  X ="3X3" F(X) ="sFO 


PRINT © CONTINUE (1=YES, O=NO)"s 
THPUT A 

IF A=1 THEN F200 

GOTG 425 

END 
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This program calculates roots of polynomials within a given interval. The program first conducts a random 


search within the given interval for two points with opposite sigs. If a change of sign is found, then the root is 
calculated by the hajf-intervat search method. If there is no change of sign found, another interval will be asked 
ior. 
ons. First, a root may be calculated when it should not 


that a root is found due to round-off error. Second, 
he opposite signs between them. The result in 


Errors may result in this program for a couple of reas 
be. This may happen if the lowest paint is so close to zero 
two rovis may be so close together thai the program never finds 1 
this case is that neither root is calculated. 

It is necessary to enter the equation before you run the program. The equation will be defined as a function 
of x at statement 30, For example, if you want to find roots of the function f(x) = 4x4-2,5x?-x +.5, you will 


enter. 


30 DEFENR (X)#48#X44-2 SFX text 2 


‘Example: 
Find a root of the functian f (x } = 4x4-2.8x7- x +5. 


(30 DEEEMR OX) e42x44-2 GEXsB-X+ 5 


+ RUN 
ROOTS OF POLYVNOMTALS: HALE-INTERVGL SEARCH 


(TO END SEARCH ENTER 0,0) 

INTERVAL (LOWER, UPPER LIMIT)? -1,0 
NO CHANGE OF SIGN FOUND. 

INTERVOL (LCWER, UPPER LIMIT)? O,1 
ROOT = .B035792010e68 


INTERVAL (LOWER, UPPER LIMIT)? 0,0 


END PROGRAM 


PROGRAM LISTING 


10 PRINT "ROOTS OF POLYMOMIALS: HALF ~INTERVAL SEARCH" 


20 PRIN] 
30 REM - ENTER FUNCTION (DEFFNR(X)="FUNCTION") HERE 


40 DIM D2) 

CQ PRINT "(TO END SEARCH ENTER 0,0)" 

59 REM -— ESTABLISH INTERVAL GF RANDOM SEARCH 
GQ PRINT "INTERVAL. (LOWER, UPPER LIMIT)": 

70 INPUT 4,E 

73 REM ~ TEST FOR USARLE LIMITS ENTERED 

80 TF ASE THEN 120 

89 REM - END PROGRAM? 

990 IF A=O0 THEN 439 

100 PRINT "--INTERVAL LIMITS CANNOT BE EQUAL--" 
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110 
129 
130 
140 
150 
160 


175 
180 


23 
240 


240 
269 
270 
278 
a79 
260 
250 
255 
360 
310 
319 
w0 
329 
230 
ooo 
340 
349 
350 
359 
360 
370 
Beau 
390 
409 
410 
$i 
820 
430 


GOTG 60 

IF ACB THEN 150 

PRINT "--LOWER LIMIT MUST GE ENTERED FIRST-~* 
GOTO 60 


AL=SGN CFNE (A) } 

Bi=SGN(FNR(B)) 

REM - TEST FOR ROOT AT EITHER LIMIT 

IF AL#B3 +0 THEN 360 

REM ~- TEST FOR OPFOSITE SIGNS AT INTERVAL LIMITS 

IF AL#Bi<O THEN 280 

REM - LOOP TO SEARCH 1000 NUMBERS FOR OPPOSITE SIGNS IN FUNCTION 
FOR I=i TO 1000 

XSA+RND(2)* (B-A) 

KL=SGNCFNREX)) 

REM - TEST FOR ROCT AT RANDOM NUMBER; IF YES, END SEARCH, PRINT 
IF Xi=0 THEN 400 

REM ~ TEST FOR OPPOSITE SIGNS AT RANDOM NUMBER AND LOWER LIMIT 
IF AL#X1<O THEN 270 

REM - TRY ANOTHER RANDOM NUMBER 


NEXT I 

PRINT "MQ CHANGE OF SIGN FOUND" 

GOTO G9 | 

REM ~- CHANGE OF SIGN FOUND: CALCULATE ROOT 
B=A 


REM —- STORE POSITIVE #“OINT IN D(3), NEGATIVE POINT IN pti) 
REM - D(1) AND D(S) BECOME INTERVAL LIMITS 

H(P+AL aA 

Die-AL)=B 

REM - CALCULATE MIDPOINT BETWEEN THE TWO LIMIT 

Y=e(D(Ld433 2) )/B 

Y1=SGN CPNE CY 23 

REM ~ TEST FOR ROOT AT MIDPOINT 


TF YL=0 THEN 409 
REM - GET A NEW LIMIT +0 CLOSE IN ON ROOT 
DtSt1vi pay 


REM - ESY FOR 4 VALUE CLOSE ENOUGH Ti? ZERO TO ASSUME A ROOT 
Tr ARS (D(1)-D(B))/ABS(D(1)4ABS(D(5)))<SE-G THEN 400 

REM - RETEST WITH HE LIMITS 

GOTG 300 

REM - ROOT AT AN INTERVAL ee FIND WHICH LIMIT, PRINT 

IF AL=O THEN 390 


Y=G 
GOTQ 400 
Yea 
PRINT "ROOT ="7¥ 
PRINT 
REM - RESTART PROGRAM 
GOTO 00 
END 
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* This program solves a trigonometric function for a given angle. The function must be in the following form: 


f(x) =A ,sin(x) + B,cos(x) + A,sin(2x) + Bysin(2x)... + Apsin(n-x) + B, cos (nx) 

on where nm = the number of pairs of coefficients. 

AH 
he coefficients of the function are to be entered in a data statement at line 30. The data statement will in- 

_ssthe number of pairs of coefficients (n) and the coefficients of the polynomial. It will be entered as follows: 


B30 DATA n yAy1By:AoiBar-:Ans Bn 


eit TR Taree ee a Pa Rr PRE MINE, 


ample: 
Solve the following equation when the angle equals 45°, 90° and 105°: 


f(x )ssin( x }+2cos( x )-2 esin(2x )+ cosl2x ) +5 «sin(3x }-3-cos{3x } 


ne DATA i a oe Aes ese 559.73 
‘ wd 
6 POLYNMOMTAL 


FRM ea han Lee RY Sout MY ELM TMNT eS “25 


wea the th te 


PLE? 45 
: 45 J 3.095597494908 

iE? 90 

: 90 )a-B.E31680950826 

SLE? 105 | 

i) 105 )=-1.546848270549 

+ 

i 

1 she? 59999 

: 2 PROGRAM 

l 

_ SGRAM LISTING 

i 

: 19 PRINT "TRIG POLYNOMIAL" 

/ 9 PRINT 

2 29 REM - ENTER NUMBER OF PAIRS OF TERMS AND COEFFICIENTS HERE 

2 °O PRINT "(CENTER ANGLE=53929 TO END PROGRAM)" 

: °O PRINT “ANGLE"; 

2 98 INPUT FR 

; &3 REM ~ END PROGRAM? 

. 8 IF R#=98999 THEN 180 

* (3 REM - GET NUMBER OF PAIRS OF TERMS IN POLYNOMIAL 

i :+° READ 

» 89 REM - LOOP TO GET VALUES OF COEFFICIENTS FROM DATA TABLE 

© FOR T<=1 TON 

(*-0 READ 4,8 

! 29 
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109 REM ~ CALCULATE VALUE OF FUNCTION AT ANGLE X 
110 Z=Z+A#SIN(1#R)+B#COS (14R) 

120 NEXT I 

129 REM - PRINT RESULTS 

$30 PRINT "FC"SR")="5z 

139 REM - PREPARE TO REREAD FUNCTION COEFFICIENTS 
440 RESTORE 

150 PRINT 

160 Z=0 

169 REM - RESTART PROGRAM 

i70 GOTO 50 

180 END 
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This program solves a system of linear equations. The number of unknown coefficients in each equation 
must equal the number of equations being solvad. You must enter the coefficients of each equation. 


The dimension statement at line 30 limits the number of equations which may be solved. You may change 
this limit according to the following scheme: 


30 DIM A(ALAR+D) 


where & =the maximurn number of equations. 


Example: 

Solve the following system of equations: | 
| x+2x+3x=4 
3x + 6x =] 
-3x+4x-2x=0 


130 DIM A(G,4) 
RUN 
STIMULTAMECUS EQUATIONS 


NUMBER Of EGUATIUNS? 3 
COEFFICIENT MATRIA: 
EQUATION 1 


COEFFICIENT J ? 1 
COEFF LCLIENT 2 7 & 
COEFFICIENT 3 7 3 


COHSTANT ? 4 
EQUATION & 
COEFFICIENT 
CORFFICLENT 
COEFFICIENT 
CONSTAHT? ft 


oe) 


£3 1 
‘ica - 
oaw 


_ EQUATION 3 


COEFFICIENT 1 7? -G 
CUEFFICLENT @ 7 4 
COEFFICIENT 3 7? -e 


CONSTANT? 0 


X 1 =-,256 
» 2B = ,344 
XZ = 1.822 


END PROGRAM 


101 


PROGRAM LISTING 


10 PRINT “SIMULTANEGUS EQUATIONS” 
20 PRINT 
G3 REM - LIMIT AC) TO ACR,R+1) WHERE R=MAX,. NO. OF EQUATIONS 
30 DIM A(9,10) 
40 PRINT “NUMBER OF EQUATIONS "$s 
5Q INPUT R 
G60 PRINT "COEFFICIENT MATRIX: ”" 
70 ‘FOR J=i TOR 
80 PRINT "EQUATION';J 
390 FOR J=i1 TO R+i 
100 ZF I=R+1 THEN 12060 
410 PRINT “ COEFFICIENT" sI: 
120 «GOTO 140 
430 PRINT " CONSTANT"; 
' 4140 INPUT A(J,1) 
150 NEXT I 
160 WNEXT J 
170 «6©FOR J=1 TOR 
i738 REM - STATEMENTS 180 TO 220 FIND THE FIRST EQUATION WITH A 
175) REM ~ NON-ZERO COEFFICIENT FOR THE CURRENT COLUMN 
i180 FOR I=J TOR 
190 IF A(I.328°0 THEN 2:30 
200 NEXT I 
210 PRINT "NO UNIQUE SOLUTIGN" 
220 GhTO 440 Bee 
e223 REM - STATEMENTS 230 TG 270 MOVE THAT EQUATION UP TO THE CURREN? 
e3s0 FOR K=i TO R+i 
240 X=A( I,K) 
250 ALI,KIRA(I HK) 
260 ALI, K)=x 
E70 REXT K 
279 REM - STATEMENTS 250 TG SiO GET 4& 1 COEFFICIENT IN THE FIRST NCY 
0 COLUMM OF THE CURRENT ROW 
PEO YHL/AtI,3) 
e250 FOR Keil TO Rei 
300 ACT, KIARYFACTLK) 
310 NEXT K 
318 REM ~ STATEMENTS G20 TO 380 SURTRACT THE CURRENT EQUATION FROM 
Si9 REM - THE OTHER ROWS 
32060 FOR I=1 TOR 
330 IF T-J THEN 380 
B40 Ya-A(T,J) 
350 FOR K=1 TO R+i 
360 O(L,KRACI  KI4VHACT,K) 
370 KEXT K 
280 NEXT I 
369 REM - THIS PROCESS IS REPEATED FOR ALL EQUATIONS 
S30 NEXT J 
400 PRINT 
4093 REM - PRINT SOLUTIONS 
410 FOR [=i TOR 
420 PRIAT MAND "="FINT ACL ,R+e1)*#1000+.5)/1000 
430 WNEXT I 
4490 EMD 
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This program uses the simplex method to solve a linear programming problem. You must provide the coeffi- 
rents of the objective function and the coefficients, relation and constant of each constraint. This information is en- 
wed in DATA statemsnts before you run the program. 

After you load the program, enter the DATA statements according to the following instructions. If you run more 
san one problem, remember to clear out all DATA staternents from the previous problem before running the new 


y. He 
croblem. Our DATA statements begin at line 3000. 
1) Arrange your problem constraints according to their relation, so that the "less than” inequalities precede 
the equalities, which in turn precede the “greater than” inequalities. 


2) Type in as DATA the coefficients of the constraints, in the order the constraints were arranged in step 1.Do 
not include coefficients for slack, surplus, or artificial variables. Do include a ‘O’ coefficient for any variable 
that doesn’t appear in a particular constraint. 


3) Type in as DATA the constants of the constraints (right-hand sides of the constraints) in the same order as 
you entered the rows of coefficients. These values cannot be negative. 
4) Type in as DATA the coefficients of the objective function. 


You rnust select whether the problem solution.is te be a minimum or maximum value. The program also asks 
you to enter the tota! nurriber of constraints and the number of variables to allow for each, and the number of “‘less 
than’, “equal” and “greater than" canstraints you are considaring. 

The dimension staiement at fine 20 limits the number cf variables and constraints you may enter. You can 
change these limits accerding to the tallowing scheme: 

29 UXM A(C+2,V4+C04G4I), B(C+2) 
where: C = number of constraints 


Y = number of variables 
G = number of “greater than’ constraints 


Example: 
A manufacturer wishes to produce 100 pounds of an alloy which is 83% lead, 14% iron, and 3% antimony. 
Ke has available five alloys with the following compositions and prices: 


alloy i alloy2 allov3 alloy 4 alloy 5 








How should he combine these alloys te get the desired product at minimum cost? 


Note that this problem results in the following system of equations: 


My + Not Xa t Xe t x, = 100 
90x, + 80x, + 95x, + .70x, + 0x, = 83 
8x, + 05x, + 02x, + 30x, + 70x, = 14 
5x, + .15x%, + 03x, 4+ + = 2 

6.13K, 4+ 7.12x, + 58x, 44.57%, + 3.96%, = 2 (min) 


oe oe 


San EAN Malek a ROE teal B= me PLA, Ani Sit SRL AAS ememranen mweruetesheie ty tee a 


. ts LD © . a 
oo rhe . ets, atin eee wre pate eee Sd ag teen a? 
coe mec cette Le tnadbal tor Scand Eri ac aed’ " Silictx Mbt mbar RB 


: RUN 
LINEAR PROGRAMMING 


TYPE ‘1° FOR MAXIMIZATION, OR ‘-14 FOR MINIMIZATION? =4 
TYPE NUMBER OF CONSTRAINTS; NUMBER OF VARIABLES? 4,5 
NUMBER OF LESS THAN, EGUAL, GREATER CONSTRAINTS? 0,4;,0 


YOUR VARIABLES 1 THROUGH 5 
ARTIFICIAL VARIABLES & THROUGH 3 


ANSWERS © 
PRIMAL VARIABLES: 
VARIABLES VALUE 
2 10 .4347826087 
3 47, B2608695654 
4 41 .73913043478 
DUAL VARIABLES: 
VARIABLE VALUE 


VALUE OF OBJECTIVE FUNCTION 544 ,.8260869565 


EHD PROGRAM 


PROGRAM LIST Lis 


10 PRINT “LINEAR PROGRAMMING " 

iS PRINT 

iS REM - LINEAR PROGRAMMING, SIMPLEX METHOD 
DB) DIM ACS,10), BG) 

30) «=PRINT 


40 PRINT “TYPE ‘1° FOR MAXIMIZATIGN, OR ‘-i‘ FOR MINIMIZATION" 


50 INPUT 2 
60 ZZ 


79.06 PRINT “TYPE NUMBER OF CONSTRAINTS, NUMBER OF VARIABLES" 


60 INPUT M,N 


99 PRINT “NUMBER OF LESS THAN, EQUAL, GREATER CONSTRAINTS" $ 


$60 INPUT !..£,6 
$10 IF M=L+E+G THEN 140 


120 PRINT "DATA ON COMBTRAINTS INCONSISTENT - TRY AGAIN." 


130 6GoTOo SO 

$39 REM ~- THIS IS THE INITIALIZATION ROUTINE 
140 CeN+Mt+G 

150 CisC+l 

160 Ce@an+l+G 

170) «ML eM+h 

180 MeeMtre 

190 PRINT 

Poo FOR tsi TA Ne 
210 FOR Jsi TO Cl 
P20 A(I,J)=0 

B30 NEXT J 
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350 


680 
630 
7006 
710 
720 
730 
740 
750 
760 
780 
790 
BOO 
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NEXT IT 

FOR I=1 TOM 

BCL) =0 

NEXT 2 

FOR I=1 TOM 

FOR Jsi YON 

READ A(I,J) 

IF I<slL THEN 330 

AML ,J)=AIML,J)-ACT SD) 

NEXT J 

IF I>L. THEN 380 

B(TShN+1 

ACI ,N+D)=1 

GOTO 440 

B(L)eN+G+it 

ACT ,N+G+I )=1 

IF ISL+E THEM 4280 

GOTG 440 

AL ,W+I-E}=-1 

ACH W+T-E)=4 

MEXT 2 

FOR T=1 TOM 

READ ACI ,Ci} 

NEXT I 

FOR = TO N 

READ ACMa,7) 

AU, TIRZ*A(MA yt) 

HEAY J 

PRINT 

PRINT "YOUR VARIABLES 1 THROUGH'IN 
GF L=0 THEN 970 

PRINT "SLACK VARIABLES" }N+1; “THRBUGH" FN+L 
REF G=0 THEN 590 

PRINT "SURPLUS VARIABLES" N+L 41; "THROUGH"? C 
IF j.=M THEN 780 

PRINT “ARTIFICIAL VARIABILES";Ce+1; "THROUGH" CGC 
M3=hMi 

GOSUR 1040 

PRINT 

FOR IT1l=i TOM 

IF B(X1)<=Ce THEN 760 

IF AC11,C1)<=.00001 THEN 690 
PRINT "THE PROBLEM HAS NO FEASIBLE SOLUTION." 
GOTH 3060 

FOR Ji=1 TO Ce 

IF GBBSt(A(I1,Ji))<=.00001 THEN 750 
R=14 

S=31 

GOSUR 1260 

Ji=Ce 

HEXT JL 

NEXT Ii 

PRINT 

MS=Me 


GOSUB 1040 


BTR RAR ST BETS Te EET TE RE A TRE LET ATES Rta OE MAMIE ES MTT EMR IRE NES Be OE ee 


eve puntos ib sc pone SiR PES creo ate 0 Ra Lol ee aot 


405 


Cat Ne a GT IE RCRD ares ae oe eer na aheas 


B30 
B40 
850 
860 
B70 
880 
B90 
300 
$10 
920 
930 
540 
950 


960 | 


570 
980 


950 


1090 
- 1010 
L020 
1050 
4038 
1039 
1040 
i650 
1060 
1070 
L080 
10906 
4100 
4110 
Lio 
1ie5 
1225 
112 
Li49 
1150 
$150 
1170 
1189 
1190 
1200 
1210 
1220 
1230 
1240 
1259 
1259 
1260 
1270 
1230 
1290 
1300 
1310 
1526 
1380 
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PRINT 

PRINT "ANSWERS: " 

PRINT “PRIMAL VARIABLES =" 
PRINT "VARIABLES", "VALUE" 

FOR J=1 TO Cc 

FOR I=i1 TOM 

IF B(N)<>I THEN 920 

PRINT J,A(T,CiL) 

I= 

NEAT I 

HEXT J 

PRINT "DUAL VARIAPLES: " 

PRINT "VARIABLE", "VALUE " 

IF 1=0 THEN 1000 

FOR T=. TOL 

PRINT 1,-Z#A(M2,N+1) 

NEXT I 

PRINT "VALUE OF OBJECTIVE FUNCTION": -2*A(Me ,Ci) 
PRINT 

PRINT 

GOTO So60 

PEM - OPTIMIZATION ROUTINE 
REM ~- FIRST PRICE QUT COLUMNS 
P=-.00001 

FOR J=i TO Ce 

IF A(M3,7)3=P THEN 1090 

S=J - oa a 
P=A(M3 0) 

HEXT J 

IF Ps-.G000L THEN 1440 

GOSURB Le 

GOSUM 1eid 

GOTO 1940 

REM - MO FIND WHICH VARIARLE LEAVE BASIS 
Q@=1.E¢58 

FOR TL TO % 

IF ACY,S)9<=,00G01 THEN 1199 
TF ACL,CI)/AC(T,S)2=Q THEN 1190 


R=] 
G=A(L,CL)/AC1I 3) 
NEXT I 

RETURN 


IF @=1.E4#38 THEN 1240 

GOSUB 12659 

RETURN 

PRINT "THE SOLUTION IS UNBOUNDED." 
GOTO 2060 

REM - PERFORM PIVOTING 

P=A(R,S) 

FOR Z=L TO Me 

IF I=R THEN 1250 

FOR J=i TO Ci 

IF J§=S THEN i340 

AIT JACI, J -ACL, SIFACK 20 /7P 

TF ABS(ACT,399>%.000013 THEN 1340 
A(T ,5)=0 
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340 
(390 
1360 


.370 
20 
3390 
400 
5410 
420 
1430 
1440 
2996 
997 


DATA STATEMENTS STARTIN 


HEXT J 

HEXT I 

FOR J=i TO Ci 
A(R TSA(R 1D) /P 
NEXT J 

FOR I=i TO Me 
A(I,S)=0 

NEXT 1 

A(R ,S)=1. 

BCR) =5 

RETURM 


Coun Ae ok natal ae P IRD Metis Ont satiate Mate Ads Lacie gccek Balsa SRN RNS we ah wot Soratee Baga cy 


REM ~- ##% DO THE FOLLOWING STEPS BEFORE RUNNING THE PROGRAM *** 


FEM ~ TYPE IN COEFFICIENTS OF ‘<'.;’"'s AND '>’ CONSTRAINTS IN 


FOR EACH CONSTRAINT {LINES 38000 - 
REM - TYPE IN CONSTANTS OF THE CONSTRAINTS IN 4 DATA STATEMENT 


2998 


FOLLOWING THE 


COEFFICIENT DATA, AN 


G AT LINE 3000, A SEPARATE DATA STATEMENT 


R030 IN QUR EXAMPLE) 


D IN THE SAME ORDER AS THE CON 


STRAINT DATA WERE ENTERED (LINE 3040 IN QUR EXAMPLE? 
REM - TYPE IN THE COEFFICIENTS OF THE QEJECTIVE FUNCTION IN 4 


e599 


DATA 


3090 
3010 
SOLO 
S020 
3040 
3050 
30690 


DATA 1,4,1,1,1 

DATA «S_ eRe. O51 Fae 

DATS £05, 005,02 03107 

DATA .05,.15,.03,0,0 

DATA 100,853,143 

DATA B63 7 eh 58S 46S 7 DG 
END 


DATA STATEMENT (LINE 3050 IN GUR EXAMPLE) FOLLOWING THE CONSTANTS 
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Matrix Addition, Subtraction, Scalar Multiplication 


Cn’ 

















This program adds or subtracts two matrices, or multiplies a matrix by a given scalar. You must input the 
value of each element of each matrix. To perform addition or subtraction the dimensions of the two matrices 
must be equal, 


The dimension of the matrices may be increased or decreased depending on the amount of memory availa- 
ble in your system. Statement 30 may be changed to: 


3O DIM ACX,Y), BCX,Y) 


where {X,Y} is your limit on the dimension of the matrices. 


Example: 
Find the sum of the following matrices, then multiply the resultant matrix by 3. 


1 0 ~] ~5 -j 2 
5 8 o 6 -.1 0 
-i Z — «0 3 4 -2 


RUN 
MATRIX ADDITION, SUBTRACTION, SCALAR MULTIPLICATION 


1=ADDITION 

—@=SUBTRACTION 

B=SCALAR MULTIPLICATION 

WHICH OPERATION? 1 

DIMENSION OF MATRIX (R,C)? 3,2 
MATRIX 1: : 
ROW 4 


VALUE COLUMN £ ? 4 
VALUE COLUMN @ 7? 0 
VALVE COLUMN 3 ? ~} 
ROW i2 

VALUE COLUMN 1 ? & 
VALUE COLUMN 2 7 8 
VALUE COLUMN 3 ? 45 
ROW 3 

VALUE COLUMN 1 7 <1 
VALUE COLUMN @ 7 2 
VALUE COLUMN 3S ? 0 
MATRIX Gt 

ROW 1 

VALUE COLUMN 1 =? <-S 
VALUE COLUMN 2 ? ~1 
VALUE. COLUMN 3 7 2 
ROW m2 

VALUE COLUMN 1 7 6 
VALUE COLUMN @ 7 —.1 
VALUE COLUMN 3 7 0 
ROW 3 

VALUE COLUMM 1 ? 3 
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VALUE COLUMN 2 ? 4 
"LUE COLUMN 3 ? -2 


a a | i 
ih Fe, aS 
2 & ~2 


ny “ vee aoe ae a * 
. Dictate ce i Eo ad tae spit weet wb is dL entgch ah gts pag ati Bae sat ate . : be 
pe GMA bite eal he habe a eS Et ea ee ae i Dh ge AE A BH te Des va bisa 2 Mem ant ne 
” 


WORE DATA? (18VES,0=NO)? 1 


WHICH OPERATION? 2 
VALUE OF SCALAR? 3 


pIMENSION OF MATRIX (R,C)?-3,3 


HATRIX 1: 
RoW dL 


VALUE COLUMN 1 ? -4 
VALVE COLUMN a ? -f 
VALUE COLUMM S ? t 
ROW 

yALUE COLUMN 1 7 Li 
VALUE COLUMN @ ? 7.9 
VALUE COLUMN 3 ? .5 
ROW 3 
VALUE COLUMN i ? @ 
VALUE COLUMN & 2? 6 
VALUE COLUMN 3 ? ~-2 
“12 -3 3 

33 eos 5 i 

& i ~§ 


HORE DATA? (L8VES,08MQ)? 0 


END PROGRAM 


PROGRAM LISTING 


10 PRINT 
20 PRINT 


P93 REM - ARRAYS SHOULD BE SET TO DIMENSIONS OF MATRICES 
30 DIM A(SB.S). BS, 
40 PRINT “LsADDITION" 

S50 PRIHT "@=SUETRACTION” 


60 PRINT "BsSCALAR MULTIPLICATION" 
G9 REM ~ SELECT QPERATION BY EMTERING 


7) PRINT "WHICH GPERATION"; 


80 INPUT D 


THE NUMBER (1-3) OF THE OPERATION: 


85 REM - TEST FOR ADDITION OR SUBRACT ION 
90 IF D<>3 THEN 
100 PRINT "“VGlLUE OF SCALAR"; 


130 INPUT S 


120 PRINT "DIMENSION OF MATRIX (R,O3"; 


130) «INPUT R,C 
138 REM - LOOP T 


140 FOR Kei 79 


150 IF K=a@ THEH 


O ENTER MATRIX VALUES 
129 REM - TOR SUBTRACTION, MATRIX @ SUBTRACT 


Po 


iz 


160 PRINT "MATRIX 


170 «6©GOTG) «(150 


160 PRINT "“MATRI 


Biber epee es 
Dee rat en Pe ts AL SRR IRM EL eR aly ST T= A i ea 


20 


1c 


ED FROM M&TRIX 


e i 
# 
— rye U 
A Cos 
2 
ay weet 1 EVO Lap MER TE cre atg amemaag aware SO Pt ae a a “ 


'“MOTRIX ADDITION, SUBTRACTION, SCALAR MULTIPLICATION" 


to 


eK at at ins teal pa ea Naa a RE i ae ee” 
“at eT one 


103 


we 


Waa eg pater 


150 
200 
210 
220 
230 
240 
250 
£260 
270 
240 
239 
250 
300 


FOR J=i TOR 

PRINT "ROW" $ J 

FOR I=L TOC 

PRINT "VALUE COLUMN"ST; 
IF K=2 THEN £60 
INPUT A(J,1) 

GOTQ #70 

INPUT B(J,1) 

NEXT I 

NEXT .F 

PEM ~ ONLY ONE MATRIX USED FOR SCALAR MULTIPLICATION 
IF D=S THEN 310 


NEXT K 
- PEM - STATEMENTS 310 TO 410 PERFORM REQUESTED OPERATION AND PRINT REs 


ULTANT MATRIX 


310. 


320 
330 
340 
350 
360 
370 
aB0 
330 
399 
800 
410 
420 
429 
430 
4440 
455 
46G 
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FOR J=1 TOR 
FOR i=i TOC 
IF D<>2@ THEN S50 
B(J,I)=-B(J,I) 


IF D=Z THEN 280 

PRINT AGI, IMtBCI,1)5" "§ 

GOTO 350 

PRINT AGI,I)#S;" "5 

NEXT I 

REM - ADVANCE GUTPUT DEVICE TQ PRINT NEXT ROW 
PRINT 

NEXT J 

PRINT 

REM - RESTART OF END PROGRAM? 
PRINT "MORE DATA? (1=VES,0=ND)"; 
INPUT D | 
IF Del THEN 70 

END 


Ma PE, SET TRL UN ED RTI al, AIRE NT Sa EE. ee ET aw em 
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This program multiplies two matrices. The firs 





menis of each matrix. 


In order for this operation to be performed the number of rows in the first m 


eer 


columns In the second matrix. 


The dimensions of the matrices are presently 


where: 


(XY) 


(2X) 


Example: 
Multiply matrix 1 by matrix 2. 


20 DIM A(S.5), B(S,2 


+ RUN 


i 4 
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Matrix Riultiplication 


te ay 








coh tated atc SS cea ead 





ro aren.» 


metre eee ae = 
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t matrix is multiplied by the second. You must input the ele- 


atrix must equal the number of 


limited to 10 x 10. This limit may be ir increased or decreased by 
altering line 30 according to the following scheme: 


dimension of matrix 1 
dirnension of matrix 2 


) 


MATRIX MULTIPLICATION 


DIMENSION 
DIMENSTON 


GF 


MATRIX 1: 


ROWS 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
ROW 2 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
roW S 
VALUE 
VALUE 
VALUE 
VALUE 


COLUMN 
COLUMN 
COLUM 

COLUMN 
COLUMN 


COLUMN 
COLUMN 
COLUMN 
COLUMN 
COLL 


COLUMA 
COLUMM 
COLUMN 
COLUMN 


ui & to mo 


oe 


tse wf 


' 
wd 


= One 


| oe) "3 «42 


sk oo) ad at od “a 
Meo 


aa ond 


oy} og) 


tT 


I 
rw 


me 


1 
jae 


ao 1 oy 
| ated 


OF MATRIX 1 
MATRIX @ (R,C)? 


1 
PhS fh 


N 
t 
hI Wa Oho 


ft 
O-.4 
3 -1 
4 2 
2 1 
1 4 
Q: 4 
1 2 


5 
- 
ime 


ee ad 


Oh 


30 DIM A(X,Y), B(Z,X) 


~2 


tee MT pA ET GT 


RETIRE TR EERSTE ae Bee 


x er ee ee a 


VALUE 


COLUMN 5 ? -e 


MATRIX @: 


ROW 1 
VALUE 
VALUE 
VALUE 
ROW 2 
VALUE 
VALVE 
VALUE 
ROW 3 
VALUE 
VALVE 
VALUE 
ROW 4 
VALUE 


“VALUE 


VALUE 
ROW 5 
VALVE 
VALUE 
VALUE 


-1 
4 
-7 


COLUMN 1 7 -e 
COLUMN & ? -1 
COLUMN 3 ? 2 

COLUMN 1 7? O 

COLUMN &@ ? & 

COLUMN 3S 7 i 

COLUMN 1 ? ~f 
COLUMH 2 7 1 

COLUMM 3 ? 4 

COLUMN 1 2? 3 

COLUMN 2 ? © 

COLUMN 3S ? -1i 
COLUMN 1 7 @ 

COLUMN @ ? bk 

COLUMN 3 7? 2 

2 oo 

a 2 

i med 


END PROGRAM 


PROGRAM LISTING 


200 
10 


172 


FOR J=1 


PRINT "HATRIX MULTIPLTCATION" 

PRINT 

PEM -~ ARPAYS & AND B SHOULD BE SET TO DIMENSIONS GF MATRICES 
DIM AC1O,190), B(10,10) 

PRINI "DIMENSION OF MATRIX 1 
INPUT R1,Ci 

PRINT "DIMENSION OF MATRIX @ (R,C)"5 

IMPUY Re ,Cce 

REM -— # OF COLUMNS IN MATRIX 1 MUST EQUAL = OF ROWS IN MATRIX 2 
IF Ci=R@ THEN 110 

PRINT "CaNHOT BE MULTIPLIED? OTHER DIMENSIONS NECESSARY 

GOTO 49 

REM - EMIER MATRIX VALUCS 

PRINT “MATHIAZ 12” 

TO RL 

PRINT “ROW" 53 

FOR Teil TQ Ck 

PRINT "VALUE COLUMN"; 2; 

INPUT A(5,1) 

NEXT I 

NEXT J 

PRINT 

PRINT "MATRIX 2." 

FOR TO Re 


(R,C)"; 


Imi 
ee 


See rr eR hare Eaten aire ie et dh ad i a eel 
- aad ” = 


— rr eee 


ran 


a at eta, 


Reet 


2 ne ie et MOY aH tt, eee : 
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Phase: 9% . : My 
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| AME tet abt 


250 


300° 


310 
320 
330 
340 
350 
360 
369 
370 
330 
390 
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PRINT "ROW" 3 J 

FOR I=i TO Ce 

PRINT "VALUE COLUMN's 15 
INPUT B(J,D) 

HEXT IT 

NEXT J 

PRINT 


REM - PERFORM MATRIX MULTIPLICATION, PRINT RESULTANT MATRIX 


FOR Isi TO RI 
FOR J=1 TO Ce 
S=0 

FOR K=i TO OL 
SeS+A(L, KFB(K,I) 
NEXT K 

PRINT So" "5 
NEXT J 


REM - ADVANCE OUTPUT DEVICE TO PRINT NEXT ROW 


PRINT 
NEXT I 
END 


id ee RI ed ce a ed 


Lon Ae ete meagan SE he ST Sn BR ey RA 


TS Ray ee ree Ne ee Da aC Si: ASAE ili t iP enlitig RAEECAn SAL sha a ARE WE deta SE ak 
Ste. 


fe peat oo tome ate tet te 


a A ah es 





method. 


The dimensions of the matrix are presenti 


altering line 30 according to the following scheme: 


Example: 
invert matrix A. 


7 RUM 








Matrix inversion 





30 DIM A(R,R), BCR,R) 


where A = number of rows (or columns} in the matrix. 


MOTRIX INVERSION 


DIHENWSION OF MATRIA? 4 


MATRIX ELEMENTS ¢ 


3 5 -1 -4 

1 4 i 

A 0 -2 0 1 
-2 6 0 3 


en one: 


a ete ne ee 


FN EN ere ee 


This program inverts a square matrix. The inversion is performed by a modified Gauss-Jordan elimination 


y limited to 10 x 10. This limit may be increased or decreased by 


POuw 4 

VALUE COLUMN 1 3? 3 

VALUE COLUMN 2 ? 5 

VALUE COLUMM S ? <3. 

V&LUE COLUMN 4 2 -4 

ROW 2 

VALUE COLUMM 1 ? 4 

VALUE COLUMN @ 2 4 

VALUE COLUMM 3 ? -.7 

VALUE COLUMN 4 ? ~%3 

ROW 3 

VALUE COLUMN 1 7 0 

VALUE COLUMM 2 7? -@ 

VALUE COLUMH 3 ? 06 

VALUE COLUMM 4 29 4 

ROv) 4 

VALUE COLUMN 1 2 -2 

VALUE COLUMM 2 7 6 

VALUE COLUM 3 2? ¢ 

VALVE COLUMM 4 7 3 
654 ~-.,985 -.194 £.40000000E-02 
6196 -.P83 -.103 2156 
368 -1.955 -4.265 -.425 
.397  -.567 2793 312 
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“spaM LISTING 


PRINT “MATRIX INVERS Turd" 


PRINT : 
“3 REM - AC) AND BC) GHOULD BOTH BE SET TO THE DIMENSIONS UF THE MAT 


a) 
9 
+) DIM A(10,10), B(i0,10) 

-y REM - MATRIX IS SQUARE SO ONLY ONE DIMENSION Is NEEDED 
(0 PRIN’ “DIMENSION OF MATRIX": 

59 INPUT R 

‘4 PRINT "MATRIX ELEMENTS" 

59 REM - ENTER MATRIX ELEMENTS 

“7 FOR J=i TOR 

:9 PRINT "RGW"S J 

+9 FOR I=i TOR 

PRINT "VALUE COLUMN" $23 

510 INPUT ACJ,1) 

20) NEAT I 

300 «BCI, J )=1 

40 NEXT J 

4«§)6©REM - STATEMENTS 150 TG 4280 INVERT MATRIX 

350 FOR J=i TOR 

0 FOR I=J TOR 

70 TF ACI,3)<30 THEN 810 

120 WEXT I 

190 PRINT "SINGULAR MA&TRIX" 

200 GOTO 5090 

710 «FOR K=i1 TOR 

720 SHAtI,K) 

P2000 OAT KD EACT LK) 

ACL, K)=S 

50 «Sabi T,K) 

250) ACT KBE KD 

$29 (i ,K)=8 

cc0 WEXT K 

290 Tesi /ACT,9) 

300 FOR K=1 TOR 

310 ACJ,K)=TRACI,K) 

30) UBT KK) = TEBCT,) 

330 NEXT Kc 

2440 FOR L=i TOR 

350 TF Led THEN 410 

360 Te-A(L,F) 

370 FOR K=i TOR 

380 ACL KRAUL KA THACT BD 

390 BIL, K) HBL K+ T#B (GW) 

400 NEXT K 

410 WNEXT L 

420 NEXT J 

430 PRINT 

435 PEM - PRINT RESULTANT MATRIX 
440 FOR I=i TOR 

450 FOR J=i TOR 

$559 PEM - RURIND OFF, PRINT 

450 PRINT IH CECL,3)#10004.5)2/10005" 
470 WEXT J 

673 PEM - ADVANCE GUTPUT DEVICE TQ PRINT NEXT LINE 
S80 PRINT . 
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Sarmutations and Combinations 


rm a i A SS I RE SST: UG. 








This program computes the number of permutations and combinations of NV objects taken D at a time. 


Examples: 


How many permutations and combinations can be made of the 26 letters of the alphabet, taking five at a 
time? . : 


How many different ways can 12 people sit on a bench if there is only room for two at a time? 


RUN 
PERMUTATIONS AND COMBINATIONS 


(ENTER 0 TO END PROGRAM) 
TOTAL MUMBER OF GRJECTS? 26 
SIZE OF SUBGROUP? 5 

7893600 PERMUTATIONS 

65780 COMBZHATONS 


TOTAL NUMBER OF QBJECTS? 12 
SIZE OF SUBGROUP? 2 

192 PERMUTATIONS 

66 COMBINATONS 


TOTAL MUMGBER UF OBJECTS? 0 


EMD PRIOGHAM 


PRUGHAM LISTING 


10 PRINT *"PERMUTATIONG AND COMBINATIONS" 

20 PRINT 

36 PRINT "(ENTER 0 TO END PROGRAM)" 

40 PRINT "TOTAL NUMBER OF OBJECTS"; 

50 INPUT N 

59 REM - TEST FOR END OF PROGRAM 

60 IF N=0 THEN 286 

70 PRINT "SIZE OF SUBGROUP"; 

80 INPUT D 

S39 REM - SIZE CF SUSGROUP CANMOT BE LARGER THAN SIZE OF GROUP 
50 IF Dis THEN 130 

100 PRINT "SUBGROUP TOD LARCE" 

140 PRINT 

120 GOTO 40 

129 REM ~- LINES 130 TO 209 COMPUTE PERMUTATIONS 

130 Pet 

140 CHL 

150 FOR EeN-D+i TON 
$59 REM ~ DON’T ALLOW NUMMER SIZE TO OVERFLOW MACHINE CAPACITY 
160 IF 9,GE62/1>=P THEN 129 

$70 PRIN] "MORE THAN 9.S8S@ PERMUTATIONS" 
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= 


460 
130 
200 
209 
£10 
220 
230 
240 
P50 
260 
269 


270: 


2680 


te abe se eel ee ee 
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GOTO 280 

Paps T 

NEXT I 

REM ~ COMPUTE INTERMEDIATE FACTORIAL FOR COMBINATIONS 
FOR J=e2 TO D 

CoC 

HEAT J 

PRINT Ps "PERMUTATIONS “ 

PRINT P/Cs "COMBINATOHS 


' PRINT 


REM - RESTART PROGRAI 
GOTO 40 
END 
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iViann-VWhitney U Test 


This program performs the Mann-Whitney Y test on samples from two populations. 


The dimension statement on line 30 limits the size of the samples. You can increase or decrease the dimen- 
sion limits according to the following scheme: 


30 DIM X(M), YN) 


where: Mo = maximuin size of first sample 
N = maximum size of second sample 


Example: 


A group of ten women and a group of ten men were asked to rate the flevor of a frozen T.V. dinner on a 
scale of one to ten. The tabie below lists the scores. Count the number of times the women’s scores are lower 
than the men’s, and vice-versa. 





2:30 DIM X(10),Y(10) 
e RUN 
MAMN WHITNEY U-TEET 


SAMPLE 1 2 
SIZE? 10 
i 


DATA cae | 
VATA 2 2? 3 
DATA 3S ? 4 
DATA 4 2? 8 
DATA S ? 6 
DATA G&G 7 8 
DATA 7 7 3 
DATA 8 7 7 
DATA 9 ? & 
DATA 10 7 4 
SAMPLE @& : 
SIZE? 10 
DATA 1 7? 7 
DATA a 7 G 
DATA 3 7 8 
DATA.4 7 5 
DATA 5 ? 19 
DATA G 7 3 
DATA 7 ? 10 
DATA & 7 & 
DATA 9 7? S 


DATA 10 7 @ 
FIRST SAMPLE PRECEDING, U = 76 
SECOND SAMPLE PRECEDING, WU = 30 
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PROGRAM LISTING 


~ 


me MT eg Re 


/ $0) PRINT "MANN-WHITNEY U-TEST“ 

\° ) 20 PRINT 

} < wg REM ~ SET MAYIMUM GAMPLE SIZE TO X(M),Y(N) (WHERE M=MAxIMUM SIZE 0 
F SAMPLE 1, N=MAXIMUM SIZE OF SAMPLE 2) 

30 Di X(25),V(E5) 

40 DiM NIB) 

49 REM - INPUT THE TWO SAMPLES 

50 FOR I=1 TO @2 


| G0 PRINT “SAMPLE"sE5""" 
70 PRINT " SIZE" 

80 INPUT NCI) 

: 90 FOR J=1 TO N(I) 

100 PRINT "  DATA"SJs 

; 110 INPUT V¥(I) 


120 NEXT J 

1292 REM - SORT EACH SAMPLE 
130 FOR J=i TO NCD) 

140 FOR Kei TO N(D)-J 

150 CHY(K) 

470 LF Y(K)<¥(K+i) THEN e200 
{BO ViKpeV¥(K+L) 

196 VWCKtiL)sC 

200 NEXT K 

DIO NEXT J 

229 PRINT 

aug Ri4 - TRANSFER FIRST SAMPLE TO X-ARRAY 
'  f 0 6 pgolURF 6s 6 6UTHEN 6870 

gO FOR Jei TO NCL) 

P50 X(ISVOS} 

260 NEXT J 

P70 NEXT F 

279 REM - ADD UF - RANKS 

PEG Rei 

290 L=0 

300 J=0 

310 L=i+L 

320) 6 6JsI+h 

3390 IF T2N(i) THEN S80 

940 IF JON(2) THEN G20 

R569 JE X¢D)<4V(0) THEN 520 
360 IF ¥YOI)<xX(2) THEN S380 
369 REM - LINES 370-570 HANDLE EQUAL SCORES FROM BOTH SAMPLES 


ee ee a " + . < 2 
(CORT art cts 42k Lenn aOR, Be BR 5 tPA, Np I te ny LANEY gE USE cD SUD Ot es EE 


370 = 
390 Nel 
330 Least 


400 Riee*R+h 

410 R=R+2 

420 Jxitl 

430 JeJel 

440 IF IDN(1) THEN 480 

450 LF ¥%(i)<>KCi-1) THEN 480 


460 FTetti 


“ae = 4 
AE AER tag cE PTT I TRYIN I «MOR Ry i Aah! aL Ok ZSERIES + mE 


' 470 GOTO $10 

| 480 GF J>N(2) THEN 550 

i 

é 
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4930 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
6490 
650 
653 
660 
669 
G70 
660 
690 
700 
7id 


120 
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IF ¥(J)40VCI-1) THEN 550 
Js Ie1 

Riz=RI+R 

R=R+i 

K=K+} 

GOTO 440 

X=xX+ (I-M)FRI/K 

Y=V¥4 (J-L)*R1L/K 

GOTQ 330 

IF JoN(@) THEN 660 
YeV¥tR 

JeJ+1 

GOTO 640 

X=EX+R 

Iei+l 

R=R+i 

GOTG 330 


=e ell tee eA. Sia ‘ " 
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REM - UL=NUMBER OF TIMES SAMPLE 4 SCORES PRECEDE SAMPLE & SCOR". 


ULE (LEN CED +N CL (NGL +2) JE 7% 
REM - UC=NUMBER OF -TIMES SAMPLE & 
UREN (1. 2N (2 +N C2) (NCB 42D ERY 
PRINT 


SCORES PRECEDE SAMPLE 1 SCORE. 


PRINT "FIRST SAMPLE PRECEDING, U ="sUl 
FRINT “SECOND SAMPLE PRECEDING, U =";UE 


END 
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This program calculates the arithrnetic mean, variance and standard deviation of grouped or ungrouped 


gata. The data may represent the entire population or just a sample. 


Examples: 
There are ten people in a hotel lobby, aged 87, 53, 35, 42, 9, 48, 51, 60, 39 and 44. What would the mean, 
variance and standard deviation of the ages of ali the people in the hotel be using the people in the lobby as a 


sample? 

Eind the mean, variance and standard deviation of the ages of the cream cheese on a market shelf. The table 

balow lists the ege distribution of 50 packages. Assume the table shows the store's entire inventory. What if it is 
only a sample of the inventory? 

age 

quantity 





RUM 
MEAM, VARIANCE, STANDARD DEVIATION 


WHICH METHOD (0=POPULATION,1=SAMPLE)? 1 
KIND GF DATA (G=GROUPED,1SUNGROUPEDI? 1 
NUMBER OF GOSERVATIGNS? 10 

LTEM 2 9 87 

ITEM @ ? 53 


ITEM 3 7? 35 

ITEM 4 ? 46 

ITEM S29 

ITEM & 7 48 

LTE oS? 8 Sa 

ITEM 8 ? 60 

ITEM 3 7? 33 

ITEM £0 7 44 

MEAN VARIANCE STANDARD DEVIATION 
46.8 28, 7BS23ES8833 19.741654308 


MORE DATA (1=VES, O=NO)? 1 


WHICH METHOD (O=POPULATION,1=SAMPLE)? 0 
KIND OF DATA (C#GROUPEO,1=UNGROUPED)I? 0 
NUMBER OF DESERVATIONS? 6 


ITEM, FREQUENCY 1 ? 1,15 

IJEM, FREQUENCY @ 7? 2,19 

ITEM, FREQUENCY 3 7 4,9 

ITEM, FREGUENCY 4 ? 4,6 

ITEM, FREQUENCY S ? 5.7 

ITEM, FREQUENCY G ? 6,3 

MEAN VARISHCE STANDARD DEVIATION 

2,78 2.5716 2. 6056205026 
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MORE DATA (1=VES, OFNO)? & 


WHICH METHGD (0=POPULATION,1=SAMPLE)? 1 
KIND CF DATA (O=GROUPED,L=UNGROUPED)? 0 
NUMBER OF ORSERVATIONS? 6 


ITEM, FREQUENCY 1 ? 1,15 : 
ITEM, FREQUENCY 2 ? 2,10 

ITEM, FREQUENCY 3 ? 3,9 

ITEM, FREQUENCY 4 ? 4,6 

ITEM, FREQUENCY S ? 5,7 

ITEM, FREQUENCY & ? 6,2 

MEAN VARIANCE STANDARD DEVIATION 

2.78 2.6240816392653 1,.6199017355 


MORE DATA (1=VES, O=NO)? Q 


END PROGRAM 


PROGRAM LISTING 


10 PRINT "MEAN, VARIANCE, STANDARD DEVIATION" 

20 PRINT 

36 PRINT “WHICH METHOD (O=POPULATION,1=SAMPLE) "S$ 
40 INPUT S 

50 PRINT "KIND OF DATA (O=GROUPED,1=UNGROUPED)": 
60 INPUT K 

70 PRINT “NUMGER OF ORGERVATIONS "3 

80 INPUT WN 


59 =6R=0 
100) M=0 
110 PO 


4320 IF K=i THEN 230 

129 REM - FOR GROUPED DATA 

1390 FOR I=1 TON 

140 PRINT “ITEM, FREGUENCY’ 323 

150 INPUT A,E 

159 REM - ACCUMULATE ENTEXED VALVES 
160 R=eR+Be4 

163 REM — ACCUMULATE INTEXMEDIATE VALUES FOR VARIANCE 
170 3 P=PrtH 

180 M=M+ER7 442 

190 WEXT I 

199 REM - CALCULATE MEAN AND VARIANCE 
200 ReR/P 

P10 V=(M-P#R4t2) /(P-S) 

219 REM ~- PRINT RESULTS 

220 GOTO 31d 

229 REM — FOR UNGROUPED DATA 

eso FOR i=1 TOWN 

240 PRINT "LITEM" 313 

250 INPUT B 

259 REM - ACCUMULATE ENTERED VALUES 
2600 P=P+D 

269 REM - ACCUMULATE INTERMEDIATE VALUES FOR VARISHCE 
270 M=M+Dte 
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REM - CALCULATE MEAN AND VARIANCE, PRINT 


R=P/i 


Va (MoN#R EE) / {N-S) 


PRINT 
od =o 
PRINT 
PRINT 
PRINT 
REM ~ 
PRINT 
INPUT 


IF S=1i 


END 


PRINT RESULTS 
"MEAN", "VARIANCE": “STANDARD DEVIATION" 


RV ,DOR (VY } 


RESTART OF END HROGRAM? 
“MORE DATA (1=YES, O=NO)"S 


S 


THEN 20 
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Geometric Mean and Deviation 


——' 


This program computes the geometric mean and standard deviation of a set of data. 


Example: 
Find the geometric mean ‘and standard deviation of 3, 5, 8 3, 7, 2. 


PRUN 
GEOMETRIC MEAN AND DEVIATION 


(TO EWD PROGRAM ENTER 0 ORSERVATIONS } 
NUMBER OF OBSERVATIONS? © . 
ITEM oe 

ITEM 
ITEM 
{TEM 
ITEM 
ITEM 
GEOMETRIC MEAN = & 14068083373 
GEOMETRIC DEVIATION = 1 723689564961 


? 
ar 
cs 
a 
? 


nur ww} 
Mawawd 


HUMBER OF OBSERVATIONS ? 0) 


END PROGRAM 


PROGRAM LISTING 
LO) PRINT "GEOMETRIC MEAM AMID DEVIATION" 
200 FRINT 
39 PRINT "(TO END PROGRAM ENTER 0 OBSERVATIONS)" 
4Q. PRINT "HUMBER OF EEE RVATIONS "5 
50 INPUT N 

eg «OREM - TEST FOR END OF PROGRAM 

co (OIF N=0 THEN 2800 | 

6G REM - COMPUTE WHICH Riot TO USE 

70 Pei/N 

BO MeL 

99 FOR I=1 TON 

100 PRINT "ITeEM"s 23 

410 INPUT D 

119 REM - ITERATIVELY COMPUTE MEAN 

120) M=M*DtP 

129) REM - ACCUMULATE INTERMEDIATE TERM FOR DEVIATION 

130 «6 G=Q+LOG(D) te . 

140 NEXT = 

149 REM - COMPUTE DEVIATION 

150 RET ep (BOR (G/ (NL) (N/ (No 18 (LOG IM) 4271) 

160 PRINT "GEOMETRIC MEA =" st 

170 PRINT “GEOMETRIC DEVIATION =°5R 

180 PRINT 

189 REM - RESTART PROGKSM 

190 GOTO 490 

200 END 
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Binomial Distribution 
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This program calculates the probability of obtaining a given number of successes in a given number of Ser- 


noulli trials. You must provide the probability of success on a single trial. 


Examples: 
What is the probability of getting three heads in five tosses of a fair coin? 


What is the probability that in five rolls of a fair die, a one (1) appears twice? 


© RU 
BINOMIAL DISTRIBUTIGN 


(TQ END PROGRAM ENTER 0) 

NUMBER OF TRIALS? 5 

SxACT NUMBER OF SUCCESSES? 3 
PPOBABILiITY OF SUCCESS? .5 

PROBABILITY OF 3 SUCCESSES IN 5 TRIALS 


23124538999998 


NUMBER OF TRIALS? & 
EXACT NUMBER OF SUCCESSES? & 
PROBABILITY OF SUCCESS? -166666667 


PROBABILITY OF 2 QUCCESSES IN S TRIALS = LGO75L 0232571 
HUMBER OF TRIALS? 0 
END PROGRAM 
PROGRAM LISTING 
10 PRINT “BINOMIAL DISTRIBUTION" 
20 PRINT 
SO DIM M(3) 
40) PRINT "(TO END PROGRAM EMTER 0)" 
50 PRINT "NUMBER OF TRIALS" 5 
60 INPUT M 
70 GF N=0 THEN 270 
BO PRINI “EXACT MUMBER GF SUCCESSES" 5 
90 IMPUT X 
{00 PRINT "PROBABILITY OF SUCCESS "+ 
{10 INPUT P 
119 PREM -— COMPUTE THE FACTORIALS 
{20 ML} =hk 
130 Mle 
140 MQ) =N-X 
150 For I=1 TO 3 
160 iF M(I)=0 THEN eed 
1700 AFL 
189006©FOR J=i TO MCD) 
190) fA=ART 
200 NEXT J 
210 MIL) =LOGIA) 


4 * 
5 ae tet 


—E-  ESe —_— ——— ee oe 


220 
229 
230 
240 
250 
260 
270 
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NEXT I , , 

REM ~- USING THE COMPUTED FACTORIALS, COMPUTE PROBABILITY | 
R=EXP (M (19-14 (2)-M(3)+X*LOG (P+ (N-X)FLOG (1 -P)) 

PRINT "PROBABILITY OF "3X; "SUCCESSES IN"“SNs "TRIALS ="sR 
PRINT 
GoTo 50 
END 
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Paisson Distribution 
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Using the Poisson distribution this program calculates the probability of an event occurring 4 given number 
of times. You must know the expected frequency of the event. 


Example: | 

2000 people are injected with a serurn. The probability of any one person having a bad reaction is .001. Thus 
we can expect twe (.001* 2000 =2) individuats will suffer a bad reaction. What is the probability that four people 
will have bad reactions? Only one person? 


+ RUN 
POISSON DISTRIBUTION 


(TO END PROGRAM ENTER 0} 
CALCULATED FREQUENCY? & 
TEST FREQUENCY? 4 


PROBABILITY OF 4 QCCURRENCES = G OP E352R21E-02 
CALCULATED FREQUENCY? & 

TEST FREQUENCY? 4 

PROBABILITY OF L OCCURRENCES = .270670566475 


CALCULATED FREQUENCY? 0 


: END PROGRAM 


ily BE wh Regt E ae, EA a Sn oR 
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PMOICRAM LISTING 


10 PRINI "POISSOM DISTRISUTION” 
20. PRINT 

=i PRINT “(TO EHD PROGRAM ENTER 0)" 
46 PRINT "CALCULATED FREQUENCY"S 
50 INPUT L 

59 PEM ~ END PROGRAM? 

60 IF L=0 THEN 180 

70 PRINT “TEST FREGUENCY"; 

BO INPUT x 

89 REM - COMPUTE FACTORIAL 

50 Ak 
100 FOR I=i TO X 
{10 AxA#I 
120 NEXT I 


129 REM - COMPUTE PROBABILITY 
12006 6AFLOG(A) 
140 sEXP (-L+x*LOG(L)~A) 
150) PRINT MPROBABILITY OF "sx; "QCCURRENCES ="5A 
160 PRINT 
169 REM ~- RESTART PROGRAM 
170060 SOTA 40 
180 END 
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Nermal Distribution 
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This program calculates the probability and frequency of given values on a standard normal distribution 
curve. You can use non-standard variables if you know the mean and standard deviation. 





Standard normal distribution 


The shaded area represents the probability of x . y corresponds to the frequency of x. 
The norma! probability is approximated using the foliowing formula: 


probability =1-rla,t+ 4@.,¢? + a,t*) + E(x) 


where: a, = .4361836 
a, = -.1201676 
a, = .9372980 
r = (e-%7/2)\(Q7)- 72 
t = (1+.3326x)- ' 


| e(x)| < 1078 


Example: 

The meen weight of the male students at a colicge is 150 pounds. The standard deviation is 35 pounds. {t 
the weights are normally distributed, what is the probability that a student weighs between 150 and 7180 pourids? 
Between 130 and 150 pounds? 


et 
MORMAL DISTRIBUTION 


(O=STAMDARD, L=NON-STANDARD ) 
WHICH TYPE OF VARIABLE? 1 
MESH? 150 


TAMVDARD DEVIATION? 15 


TO END PROGRAM ENTER 2=99999 


x =? 180 

FREQUENCY = S,S9909€55E-02 
PROBABILITY = .9772411899835 
x =? 1306 


FREQUENCY = 1640100746762 
PROBABILITY = .908798074933 


KS? 99999 


EMD PROGRAM 
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PROGRAM LISTING 


10 
£20 
30 
4&0 
50 
&O 
63. 
70 
89 
30 
100 
1196 
120 
130 
140 
150 
160 
170 
17S 
186 
13S 
1990 
09 
210 
As 
Le0 
230 
Lot 
24 
2o50 
266 
7G 
280 
290 


PRINT "NORMAL DISTRIBUTION” 

PRINT 

POINT §(O=STANDSRD, L=NON-STANDARD) " 
PRINT "WHICH TYPE OF VARIABLE"; 

INPUT S 

IF S=0 THEN i280 

REM - LINES 70-110 REQUEST ‘NON-STANDARD’ VARIABLE DATA 
PRINT "MEAN"; 

INPUT I 

PRINT “STANDARD DEVIATION"; 

INPUT 5 

GOTO 130 

S=1 

PRINT 

PRINT "TO END PROGRAM ENTER X=95939" 
PRINT "xX ="3 

INPUT ¥ 

IF ¥s99999 THEN ©9390 

REM - ADJUST FOR NON-STANDARD VARIABLES 
VeABS ((V-M)/5) 

REM - COMPUTE FREQUENCY (Y COORDINATE > 
WeEXP (-( VTE) /E) /2. 5066288 746 

PRINT “FREQUENCY ="iR 

Ze 

PEM - SEPROXIMATE PROBABILITY (AREA UNDER CURVE) 
Yei/(itr . BSBS7TRARS (Y)) 

T=i-R#(. ABGLB3IGRY—-.LEOLG7STY tat SS 7298" wY4S) 
REM - ADJUST FOR NEGATIVE VARTABLES 

IF Zy2O THEM 860 

Tait 

PRINT "PROBABILITY ="3T 

PRINT 

GOTG i150 

END 


- ere 1, 
wan RO TEM ate a 
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Chi-square Distribution 
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This program caiculates the tail-end value for points on a chi-square ( X 2 ) distribution curve. You must pro- 
vide the value of X * and the degrees of freedom. 





vt 
Chi-square distribution 


The shaded area represents the tail-end value of X 2. 


The X ? distribution function is calculated using the following formutas: 





(x2)(v + 1)/2 .e-x?/2 2 v2 
with v odd, tail-end value =1- -———-—-—_------—____-- . Z 
1-3-5 ev X27 
(X2)v /2 e e~x7/2 
with v even, tall-end value = 7-0 —~—__+_-__---- °Z 
2°4-+...v 
where: v = degrees of freedom 
oo (X2}m 
2es=i+ eae eee 








~ m= 4 (v +2) ¢(v +4-...(v +2m) 


Since the summation in the calculation of Z cannot actually extend to infinity, we stop summation when the 
next term is iess than a chosen level of precision. The computational precision is limited to approximately 1077. 


Example: 

Of a group of 188 pecple who complained they did not sleep well, 54 were given sleeping pills and the re- 
mainder received placebos. They were later asked whether or not the pills had helped them steep. The X 2 statistic 
for this study was cornputed to be 2.571108 with one degree of freedom. What is the tail-end value? 


7 RUN 
CHI-SGUARE DISTRIBUTION 


(TO END PROGRAM ENTER 0) 
DEGREES OF FREEDOM? 1 
CHI-SQUARE? 2.571106 

TAIL EHD VALVE = .1O883148461& 


DEGREES OF FREEDOM? 6 


END PROGRAM 
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J c0GRAM LISTING 

/ $0 PRINT “CHI-SQUARE DISTRIBUTION” 
¥ 20 PRINT | 
£30 PRINT "(TO END PROGRAM ENTER 0)" 


ad 
nQ 


PRINT "DEGREES OF FREEDOM"; 
INPUT ¥ 

IF V=0 THEN e286 

PRINT "CHI-SQUARE"; 

THFUY WW 

REM - R=THE DENOMINATOR PRODUCT 
R=1 

FOR TeV 
R=aReT 
NEXT J 
‘34 REM - K=THE NUMERATOR PRODUCT 
ely? CENT COV+L ) /2) REXP (-W/2) JR 


tO e2 STEP -e 


IF INT(V/@)=V/@ THEN 470 


JsSQR(2/W/3.1481 5926539599) 
GOTG 180 


40 


Jet 


7 GO Lei 

7190 M=o 

b 20d VeVed 

> eLG Malar /¥ ; 

[219 REM ~ CHECK FOR END Of SUMMATION 


mag TF M¢,0009001 THEN REO 
L=uin 
GOTO 


2 06 
O30 PRIN 


eT ad. 


i eg PRINT 
Pevo GoTa 40 
ego END 


BT 
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You may wish to compute the percentile rather than the tail-end value. 
‘shaded area in the figure above. The program changes neces 


‘Example: 
f What ig the percentile in the example above? 


; RUN 

UMI-SGUARE DISTRIBUTION 
TO END PROGRAM ENTER 0) 
CEGREES GF FREEDOM? 4 
JME-SQUARE? @ 6571468 
VERCENTILE = 8911595153623 


CEGREES OF FREEDOM? 0 


“0 PROGRAM 


er 
Se a CT TT 


PEM - THE PL FACTOR IS USED ONLY WHEN DEG. FREEDOM ARE ODD 


REM - L. (SUMMATION FACTOR) CALCULATED LINES 170-240 


Eat VALUE 2 Si cdtKEL | os 


od ne ee Tn Oe 


Sl — ee 


This value corresponds to the 
sary are listed following the example below. 
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PROGRAM LISTING 


Pare 


‘ 


— ee eee Ee 


REM - 
PRINT 


COTO _ 
PRINT 


PRINT 
GOTO 
END 


EL cal eet Rea Oe eT 


OPTION 250 
“CHI-SQUARE DISTRIBUTION" 


“PERCENTILE ="3Jek@L 
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This program calculates tne chi-square ( X 2) statistic and degrees of freedom associated with a given con- 


tingency table. The expected value for each cell and X 2 contribution from each cell are also printed. 
The dirrension statement at line 30 limits the size of the contingency table. You can change the dimensions 
according to the following scheme: 


30 DIM Vila Cc), VAC), ATA) 


where. A = number of rows in the contingency table 
C = number of columns in the contingency table 


Example: 

Of a group of people who complained they could not sleep well, some were given sieeping pills while others 
were given placebos. Later they were asked whether or not the pills had helped them sleep. The results are 
detailed in the table below. What is the value of the X? statistic? 


slept slept 
wel! poorly 


sleeping pt {44 | 10 
placeno 81 35 


©3090 DI V1i(4) , Ve (2), Ale) 
: RUM 
CHI-SGUARE TEST 


HUMBER OF ROWS? & 
NUMBER GF COLUMNS? & 
CONTINGENCY TAbLEs 
ROW 1 
ELEMENT 1 ? 4&4 
ELEMENT @ 7 10 
ROW 2 
ELEMENT 1 ? 81 
ELEMENT 2 7 3S 


ORSERVED VALUE EXPECTED VALUE CHItE CONTRIBUTION 
COLUMN 4 


44. RG 7OSG88255294 .862549019614R 
Ad 85,29411764706 .i687728194759 
COLUMN 
10 14.2941176470G 1 ,0070B80610041 
BH BO 7OS882S35294 468813287455 
CHI-SGUARE = 2,007215856554 
DEGREES OF FREEDOM = 3 
133 
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PROGRAM LISTING 


PRINT "CHI-SQUARE TEST" | 
SLT 

REM - LIMIT SIZE OF CONTINGENCY TABLES To Vi (RIC), VE(C),A(R) 

Barto WHERE R=NO. OF ROWS, C=NO, OF GOLUPNS 

DIM V1(25) /V2(5) JAS) 

PRINT "NUMBER OF "ROWS": 

REM = LINES 50-150 INPUT CONTINGENCY TABLE 

PRINT °NUMEIER OF COLUMNS": 

INPUT C 

PRINT "CONTINGENCY TABLE: " 

FOR I=1_ TOR 

PRINT “ROW" st 

FOR J=i “To'C 

PRINT “ ELEMENT": 

INPUT Vi ¢(I-1)%C+,7) 

NEXT J 

NEXT I 

PRINT 

REM - ADD UP MARGINAL FREQUENCIES FOR EACH ROW 
M=1 

FOR I=i TOR 

FOR J=f Toc 

ACT)=A(L)4¥4 (mM) 

M=M+4 

NEXT J 

LSL+A(T) 

NERECo 

REM 7 _ADD UP MARGINAL FREQUENCIES FOR EACH COLUMN 
FOR I=i TOC 

FOR J=l TON STEP C 

V2(Ld=VACLEVA CT) 

NEXT J 

NEXT I 

ao 

OR an Oe SERVED VALUE", "EXPECTED VALUE", "CHI 4m CONTRIEUTION" 
FOR I<t TO ¢ 

PRINT "© COLUMN" :1 

FOR Ji TOR 

REM - P=EXPECTED CELL VALUE 

P= (I)eVECTY AL, _ 

MEL+ (T-$ HC -_ 
Sere, 7 USE YATES’ CORRECTION FOR CONTINUITY IN 2 X 2 CHI-SQUARE 
TESTS 

IF ROB THEN 390 

TF Céo2) THEN "290 

Y=(AES(VI(X)-P)-15) 42/p 

GOTO 400 

Re re cit (SGUARE CONTRIBUTION FROM THIS CELL 
V=(VI(X)-P)4B/7R 

REM > 2=TOTAL CHI-SQUARE VALUE 

= + 

PRINT " "SV (0X) PLY 

NEXT J 

NEXT I 

PRINT 

PRINT "CHI-SQUARE =":2 


eae "DEGREES OF FREEDOM =H" (C-1L)"%(R~j) 
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This program caiculates right -tait values for points on # ¢ -disiribution curve. You must provide the value of t 


and the degrees of freedom. 





: “Wty 
Student's t -distribution 


The shaded area represents the right-tail value for ¢. 


The right-tail value ts approximated using the following formula: 

right-tail value =a +a ,X t+ agx?+ 4X3 + 6x 
. 196854 
118194 
as 000344 
= 019527 ee : 

\ 1 

ad (p(y -d)-g) (G+ 0/2 + 9a) 
degrees of f reedom 


| e(x)| < 2.8 + 10°° 


4)-4 + E(x} 


where: @; 


fh 
N 
i ou’ 


is) 
> 
u | 


2X 
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Exainpias: 
What is the right-tail value when the ¢ -value 


What is the right-teil value when the f -value ig 11.178 and there are 5 degrees of freedom? 


is 2.921 and there are 16 degrees of freedom? 


2 PU 
STUDENT'S T-DISTRIBUTION 


(TO END PROGRAM ENTER & T+VALUE GF Q) 
T-VALUE? @.5e1 

DEGREES OF FREEDOM? 16 

RIGHT TATL VALUE = 4, 90000000E-02 


T-VALUE? 11.178 
DEGREES OF FREEDOM? & 
RIGHT TAIL VALUE = 2. Q00N000000E-04 


T-VALUE? 0 


END PROGRAM 


Re yee ATTY ATM IAD em RE TET eer TORT ae ee gnmmetes tage oo Sr ter ye tema ee + 
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PROGRAM LISTING 


340 


136 


A ey atm EY aoe ee ri are as app ee er 


PRINT "STUDENT‘’S T-DISTRIBUTION" 

PRINT 

PRINT "(TO END PROGRAM ENTER A T-VALVE OF 0)" 
PRINT "T-VAILUE” $ 

INPUT T . 

IF T=0 THEN 340 

PRINT "DEGREES OF FREEDOM"; 

INPUT D 

x=1 


Wai 


T=Tte 

REM - COMPUTE USING INVERSE FOR SMALL T-VALUES 
IF T<i THEN 170 

S=V 

R=D 

Z=T 

GOTG 200 

S=D 

R=¥ 

Zei/T 

J=2/9/5 

K=2/5/R 

REM - COMPUTE USING APPROXIMATION FORMULAS 
LEARS ( (1-H) 24 ¢1/3) -1 43) /SQR(KAZ4 (2/3) 47) 
IF R<4& THEN 870 


Xe BS/ (1+ ( L9GBS44L% ( LISIO4+L #( .000B444L% .OL9527) 1) 4 


XeINT(X#1OG00+ .5)/10000 

GOTO 290 

LL.# (1+ 0841 #4/R43 ) 

GOO #80 - 

{EM - ADJUST IF INVERSE WAS COMPUTED 
iF T>=1 THEN 310: 

MEL-x 

PRINT “RIGHT TAIL VALUE ="5X. 
PRINT 

GOTO 40 

END 
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Student's t- distribution Test 
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This program calculates thet -statistic and degrees of freedom for Student's distribution. The calculations 


can be based on any one of three hypotheses. 


hat one population mean is equal to a given value. You must enter the ele- 


The first hypothesis assumes th 
raents of the sample and the value of the mean. 
n both tests the means of the two populations are 


The remairing hypotheses compare two populations. | 
or these hypotheses you must enter the elements of 


equal, but the standard deviations may be equal or unequal. F 


each sampie. 


The dimension statement at line 20 limits the size of the samples you may enter. You can change the imit 


according to the following scheme: 
30 DIM P(N,e®) 


where A’ = maximum sample size. 


Examples: . 
A samoie of children’s 10's was taken, ihe results being 101, 99, 120, 78, 111, 
Caiculate the t-statistic assurning the population meati is 100. 
eing 101, 98, 126, 180, 75, 79, 111, 100, $8 and 91. Calculate the 
o samples have equal means and standard deviations. 


98, 106, 112, 87, and 97. 


A second sample wes taken, the results b 
s-etatistic based on the nypothesis that the tw 


RUM 
STUDENT ‘(GS T-DISTRIBUTION TES? 


TEST 1: NEAMEA 
JEST @: MEAN=MEAN, STANDARD DEVIAT IOMSSTANDARD DEVIAT ION 
TEST Bt MEANSHMEA. ETANDSRD DEVIATIONS SSTANDARD DEVIATION 


woe 


BHICH HYPOTHESIS? } 


SAMPLE 1: 

NUMBER OF ELEMENTS? 10 
ELEMENT 1 2? 101 
ELEMENT @ ? 99 
ELEMENT 2 ? 120 
ELEMENS 4 7 79 
ELEMENT G ? Lil 
ELEMENT 6G ? 9d 

ELEMENT 7 2 106 
ELEMENT @ ? Lit 
ELEMENT 9 7 RY 
ELEMENT 10 7 9% 


VALUE OF MEAN? 100 


T+VALUE = .-GG1IS10G1641 
DEGREES OF FREECOM = 2 


END PROGRAM 
: 137 
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> RUN 
STUDENT ‘’S T-DISTRIBUTION TEST 


TEST 1: MEAN= 

TEST i MEAN=MEAN STANDARD DEVIATION=STANDARD DEVIATION 
TEST 3: MEAM=MEAN STANDARD DEVIATIONS SSTANDARD DEVIATION 
WHICH HYPOTHESIS? 2 


SAMPLE 1 : 
NUMBER OF ELEMENTS? 1410 


ELEMENT 1 ? 104 
ELEMENT 2 ? 95 
ELEMENT 32 ? 120 
ELEMENT 4 ? 79 
ELEMENT S ? 11k 
ELEMENT G ? 938 
ELEMENT 7 ? 106 
ELEMENT 8 ? 112 
ELEMENT 9 ? 87 
ELEMENT 10 ? 97 


SAMPLE @ 3; 


NUMBER OF ELEMENTS? 10 


ELEMENT 1 7? 103 
ELEMENT @ 7 95 
ELEMENT 3S ? 1390 
ELEMENT 4 ? 150 
ELEMENT S 7? 75 
ELEMENT 6 ? 793 
ELEMENT 7 ? 412 
ELEMEMT 8 2 100 
ELEMENT 93 ? 939 
ELEMENT 10 ? Si 


T-VALVE = .246515219849 
DEGREES OF FREEDOM = 18 


END PROGRAM 


PROGRAM LISTING 


16 PRINT "STUDENT’S T-DISTRIRUTION TEST” 
£20 PRINT 


e3 REM ~ LIMIT SAMPLE SIZE TO P{(N,2) WHERE N=MAx, SAMPLE SIZE 


30 DIM P(10,2) 
40 DIM V(2),R(2) .M(2) BiB) 
50 PRINT “TEST 1: MEAN=X" 


60 PRINT "TEST @! MEAN=MEAN, STANDARD DEVIATION=STANDARD DEVIATION" 
70 PRINT "TEST Bt MEAN=MEAN,STANDARD DEVIATION<>STANDARD ReoVIATION" 


80 PRINT “WHICH HYPOTHESIS"; 

50 INPUT T 

100 PRINT 

105 REM - INPUT £ GR 2 SAMPLES DEPENDING GN HYPOTHESIS 
$i0 FOR T=1 TO SGN(T-1)44 

120) Vi(t)=O 

130 DiI)=0 
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230 
40 


230 
300 


i 309 
4 310 
320 
; 339 
1 B60 
350 
§ 860. 
370 
‘ 379 
: BBO 
+ 380 
: &OO 
; ALO 
> 429 

420 

140 
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PRINT "GAMPLE"314 "2" 

PRINT " NUMBER OF ELEMENTS "3 

THEUT fe¢r) 

FUR J=1 TO R(T) 

PRINT ” FLEMENT "373 

INPUT P(.J,1) 

ery - ACCUMULATE SAMPLico 

Vil peViL)+P05,2) 

Di LIeD( LIP (F.1d te 

NEXT J 

REM ~- COMPUTE INTERMEVIATE VALVES 

ACT yeV¢(LI/RCT) 

VETIR(D(LI-VELIFB/ROTI IS CRIT) 1) 

NEXT I 

PRINT 

IF T=@ THEN 3406 

IF T=3 THEN 380 

PEM - INPUT GIVEN VALUE FOR FIRST HYPOTHESIS 

PRINT "VALU OF MEAN"; 

INPUT M 

Rcti = COMPUTE T AND DEGREES OF FREEDOM FOR FIRST HYPOTHESIS 
A=(4 C1) -M)#SQR (RCL /V tid) 

Bam cL pnd 

GOTO 4e9 

REM ~ COMPUTE T AND DOGREES OF FREEDOM FOR SECOND HYPOTHESIS 
As (MCL) “MCE PVBQR(L/R(L 44 /R(2)) 

Bak ¢hLiy¢R (aber 

Ah /SORCC(R CLL EV OL) + (RCRD 1) 4V (2) /ED 

cor 420 

Gl = COMPUTE T &ND MEOREES OF FREEDOM FOR THIRD HYPOTHESIG 
Aad (1 -M(E) /SA@R(VIL) /R CL FV (EI /RIE DD 

meV (iL) /ROR EV CB) /RUAD) DD Fe 

rett/ (AVL) REL) FEL UCL DALEY IB) ROB) ECR (ED 42) De 
malt (B+ .S) 
PRINT 

PRINT °TeVALUE s" SARS 
PRIN’ "DEGREES OF F 
EMD 
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This program calculates percentile values for given values on an F -distribution curve. You must provide the 
value of F, the degrees of freedorn in the numerator and the degrees of freedom in the denominator. 





0 F 
The F -distribution 


The area of the shaded region represents the percentile. . 
The F -distribution function is approximated using the following formula: 


1 
percentile =1-9(1+a,y + any? + azy2 + agy*)* + ely) 


where: @, = .196854 
@, = .116194 
a4, = .000344 
@, = .019527 
eta: eS 42 2 if oan 
y (FY%s(1~ 9g )-(1-9g Mog, + F738 +9g,)- /2 
d, = degrees of freedom in numerator 
d, = degrees of freedorn in denominator 


bely)| <2.5x 104 
Examples: 
What is the percentile on an F -distribution curve when the F -value ts .474 and the degrees cf freedom are 
1 and 18? 


What is the percentile when the F -value is 23.7 and the degrees of freedom are 3 and 6? 


2 RUN 
F-DISTRIBUTION 


{TO END PROGRAM ENTER AN F-VALUE OF 9) 
F-VALUE? .4°74 

DEGREES GF FREEDOM IN NUMERATOR? 1 
DEGREES OF FREEDOM IN DENOMINATOR? 18 
PERCENTILE = .4937 


F-VALUE? @3.7 

DEGREES OF FREEDOM IN NUMERATUR? 3 
DEGREES OF FREEDOM IN DENOMINATOR? 6 
PERCENTILE = .9984 

F-VALUE? 0 

EMD FROGRAM 
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PROGRAM LISTING 


10 PRINT He HT STRIBUTION" 
20060 PRINT 
36060 PRINT "(TO CND PROGRAM ENTER AN F-VALUE OF 0)" 
40 PRINT “F-VALUE"S 
50 INPUT F 
60 IF FQ THEN BHO 
“0 PRINT "DEGREES OF FREEDOM IN HUMERATOR "3 
60 © INPUT Di 
30 PRINT "DEGREES OF FREEDOM IN DENOMINATOR” $ 
oo 0 60oWPUT De 
110 *=1 
119 REM - COMPUTE USING INVERSE FOR SMALL F-VALUES 
120 IF Fei THEN 1°70 
130 S=D1 
$40 «T=De2 
$50 Zar 
16060 GOTG eoC 
170 0 6$S=De 
480 6T=HL 
$90 Z=1/F 
20QG J=2/9/5 
B10 Ke2/5/T 
219 REM ~- COMPUTE USING APPROXIMATION. FORMULAS 
pret} V WARIS ( OL KG SE 4 CA/B DALAT) /SOR (KPIZ HE) 40) 
gran TE 144 THEN @70 
gAAQ nS) CEAVE ASGOBATVH (1151944 ( 000344¢Y* 019527) 1098 
ad WeEMT (100004 .53/10000 
a6 GOTO 299 : 
ms Yaya (it OBRVFI4/T FS 
ea) GOTO 40 
aag PEM - ALIUST IF THVERSE WAS COMPUTED 
P50 TF Fr=) THEM 210 
SOO MeL e be tees eee 
310 PRINT “PERCENTILE 8 YX 
OQ PRINT 
330 GOTO 40 
249 EMD 


TS Os AS ce a ere ete a een re REAL AS TO a a EE NAT ES STS 
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GPTION 

You rnay prefer to compute the tail-end value (the area of the unshaded region in the figure above). The pra- 
gram changes necessary are listed following the examples below. 
Examples: 

What is the tail-end value on an F -distrion 
are 1 and 18? 


ition curve when the F -value is .474 and the degrees of f reedom 


What is the tail-end value when the F -value is 23.7 ane the degrees of freedom are 3 and 6? 
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RUN 
F-DISTRIBUTION 


(TO END PROGRAM ENTER AN F-VALUE OF 0)? 
F-VALUE? 1.474 

DEGREES OF FREEDOM IN NUMERATOR? 1 
DEGREES OF FREEDGM IN DENOMINATOR? 18 
TAIL END VALUE = .5063 


F-VALUE? 23.7 

DEGREES OF FREEDOM IN NUMERATOR? & 
DEGREES OF FREEDOM IN DENOMINATOR? 6 
TAIL END VALUE = 1.50000000E~03 


F-VALUE? 0 


END PROGRAM 


PROGRAM LISTING 


4 REM —- OPTION 310 
10) «~PRINT °F-DISTRIBUTION” 


gi PN hates Sha tus nesie ais Rawr hae’ 
310° PRINT “TAIL EHD VALUE ="3x._! 
320 PRINT 
350 GOTO 40 
340 END 
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This progam computes the coefficient of correlation between two variables. A linear relationship is 
assumed between the variables. You must enter the coordinates of a group of data points forming the regression 
“Nee 


Example: 
The height of tweive men and their sons is recorded in the table below. What is the coefficient of correlation 


 yeiween the heights cf fathers and the heights of their sons? 







father | 65 7 | 64 | 68 | 62 | 70 | 66 | 
5 | 65 | 69 | 56 | 68 65 74 | 


height in inches 





:RUN 
LINEAR CURRELATION COEFFICIENT 


HUMBER OF POINTS? ie 


YY Ol POLNT 
oY OF POINT 
v WY OF POINT 
Ge POINT 
OF POINT 


¥ 65,66 
’ y : 
a¥ 
¥ 
iV 
LY OF POINT 
iY 
i¥ 
¥ 
Y 
¥ 


“ 

? 63,606 
7 67,68 
? 64,65 
? 69,69 
? 62,66 
2 70,68 
7 66,65 


OF POXNT 

OF POLAT ? 

QF POLNT ? €6,71 

"POINT 16 7 G7,G7 

OF POINT 41 7 9,68 
Y OF POINT 1a ? 71,70 


MOI HL SOW 


o> 


~ ~ ~ 


» 
, 
s 
‘ 
2 
G 
s 
a 
, 
‘ 


~ 


COEFFICIENT OF CORRELATION = 7026516550773 


. END PROGRAM 


» PROGRAM LISTING 


10 PRINT “LINcAR CORRELATION COEFFICIENT" 
20 PRINT 

259 PRINT "NUMBER OF POINTS "§ 

&QO INPUT N ; 

50 «Fs 

690 Kd 

70 LO 

BQ "10 

90 RHO 

959 REM - ENTER COCRDINGTES OF DATA POINTS 
1600 FOR Isl TO N 

110 FRINT "X,Y OF POINT 314 

120 INPUT X.Y 

129° REM - ACCUMULATE IMTERMEDIATE VALUES 


MEM pe: 
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130 
140 
150 
160 
170 
180 
189 
150 
200 
2id 
220 
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J=J+x 

K=K+¥ 

L=L+xte 

fM=M+¥ te 

R=R4+ xy 

NEXT I 

REM - CALCULATE COEFFICIENT, PRINT 
Pos (N#R-JkK) /SGR( (NFL “J 42) * (NAM-Kte)) 
PRINT 

PRINT “COEFFICIENT OF CORRELATION. =";Re 


END 


op nyt Sv ga NT TIVEE TE ee F ob Met ee OTR Ma me AIDE OT ET TE Fae 


2 pp GI Cte te alae one ORR cme nine re 


Rogh Cope dl ThA Apts oi . 5 i 
Gi Gepe dt TAR pies gates Bla EY a MESO Be Ger ei gts 


A 


AE ea Td le RE nee Ob ie 2 ayer A ER igh ME li SI a OO Bd tes “Sedation eh I eed es 4. Pee ed at ub re we a = 
\i3 = *. : . 
BAT apsty tr A ie OF. 


no mE 


~ TE a ee Te oe as silted ihe a x: : . ess . a - arr bree 
eee? # “ Ca me es mein a a Diemer nt alent oe ome Man tena Be ote oe eet Nee a NR elie deh Scam Mm aera fe ay TE Bice 2 








a re re 


SS 
Linear Regression 


TS SS A Pe 


nt 





— ee ete nner ate ne ta oenenee — 
ee ee ee nh 


This program fits 4 straight line to a given set of coordinates using the method of least squares. The equa- 
tion of the line, coefficient of determination, coefficient of correlation and standard error of estimate are printed. 


Once the line has beer fitted, you may predict values of y for given values of x. 


Example: . 
The table below shows the height and weight of 11 male college students. Fit a curve to these points. How 


much would the average 70’ and 72’”° male student weigh? 
63 | 
132 












65 | 72 
45 [210 





71] 73] 64] 65 [ei 70 
Figo [183 | 164 [768 [159 [180 | 


height (in.) 
weight (ibs.} 





2 RUM 
LINEAR REGRESSION 


HUMEER OF KOU POINTS? id 
¥,V¥ OF POINT 1 ? 71,160 
X,Y GF POINT © 73,160 
X.Y GF POINT 64,154 

x 

rs 


i 


CY OF POLNT ? 65,168 
eoY GE POINT ? 64,159 
¥Y OF POINT 70,180 
xy OF POINT ? 65,145 
x WY GF POINT ? 72,810 
x Y GF POINT 7? 69,13e 
y YY GF POINT 1% ? 67,400 
X.¥ GF POINT if 2 64,141 


Waa ina 
~t 


FOX) =~{0G, 7916666666 + { 4 oF 7PeeBBeeRe * X ) 
COEFFICIENT OF DETERMIMATION (Rit) = 5562601669757 
CGORFEFICIENT OF CORRELATION = 74582851043 

STANDARD ERROR OF ESTIMATE * 15.41348B816 
INTERPOLATION: (CENTER y=0 TO END PROGRAM) 


x 2? 70 
= 176,.5138958989 


Vv 
xX =? Te 
y = 194,G085333534 


x =7 0 


EMD PROGRAM 
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PROGRAM LISTING 


190 


igre 9) 
229 
ESO 
P40 
250 
260 
270 
&eoO 
230 
300 
3i0 
319 
320 
330 
340 
349 
350 
860 
370 
3680 
290 


PRINT “LINEAR REGRESSION” 

PRINT 

PRINT "NUMBER OF KHOWN POINTS"; 

INPUT N 

J=0 

K=0 

L=0 

4=0 

Re=0 

REM - LOOP TO ENTER COORDINATES OF POINTS 


. FOR IT=i1 TON 


PRINT "X,Y OF POINT" S13 

INPUT X,Y 

REM ~ ACCUMULATE INTERMEDIATE SUMS 

J=J+x ; 

KeK+y¥ 

L=L+x 42 

M=Mt¢y¥ 42 

R2=he+xXFyY 

NEXT I 

REM - COMPUTE CURVE COEFFICIENT 

B= (NERE-K4T) / (NFL -J 42) 

A=(K-B*J > /N 

PRINT : 
PRINT “FixX) ="sAr%+ ("seb "# KX 38 
REM - COMPUTE REGRESSION ANALYSIS 

JHB (RE-T*R/N) 

M=aM-KG2/N 

K=M-J 

PRINT 

Re=J /f ~ 

PRINT *COEFFICIENT OF DETERMINATION (R42) ="5RP 
PRINT “COEFFICIENT OF CORRELATION =";SQR(R2) 
PRINT "“STANDART ERROR OF ESTIMATE =";SQR(K/(N-2)) 
PRINT 


2 Ec I - 


Teeter 


REM - ESTIMATE Y-COORDINATES OF POINTS WITH ENTERED X-COORDINATES 


PRINT “INTERPGLATIGN: (CENTER X=0 TO END PROGRAM)” 
PRINT "xX ="; 

THPUT x 

REM - RESTART GR END PROGRAM? 

IF X=0 THEN 390 


PRINT "VY ="SA+B4x 


PRINT 
GOTO 22C 
END 
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: This program finds the coefficients of a multiple variable linear equation using the method of least squares. 
‘re equation is of the foliowing form: 


vv 
, 


t 
3 


C+ ayXy t 2QX%q t+ ayXq 


@ 
é 
4 where. y = dependent variable 

: c = constant 

i @y82-+-4, = coefficients of independent variables x 4, X2,---Xp 
ct 

é 


‘the constant and the coefficients are printed. 


} You must provide the x - and y -coordinates of known data points. Once the equation has been found using 


ihe data you enter, you may predict values of the dependent variables for given values of the independent varia- 


% nes. 

: The dimension siaternent at line 30 finiits the nurnber of known data points the equation may contain. You can 
‘shange this limit according to the following scheme: 

; a5 DIM X(W+ 0, GIN+ED, TING 1), QCN4+ TA4 2) 

: where Wo = tho number of known data points. 


+ 


t 


~ RKEMole: 
; The table beluw shows the acs, heignt and weight of eight boys. Using weight as the dependent variable, fit 
“scurva te the dsia. Estimate the weight of a saven year old boy who is $1 inches tall. 
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‘MULTIPLE LINEAR REGRESSION 


oRUMETIR OF KHOWN POINTS? 8 

‘NUMBER OF INDEPENDENT VARLABLES? Re 

;POINT 1 

VARIABLE 1 ? & 

VARIABLE 2 7 48 

) DEPENDENT VARIABLE? 

‘POINT @ 
VARIABLE 
VARTABLE 
PE POMORIN T 

POLHMT & 

_ VARIAGLE 2 7? 

> VARTASLI 2 4 
NEPENDEHT VARIABLE? 5C 


uw 
wD 


Ga * 43 


oe 


147 


Peet ee ee ee er i acs 


aan 8 ne ike alam PERS Se Dit NiO nM A Le a 9 Mtr A 


POINT 4 
VARIABLE 1 7? 10 


: VARIABLE @ ? 59 
te DEPENDENT VARIABLE? 80 


. POIN! & 
; VARIABLE 1 ? 8 
| VARIABLE @ ? SS 
DEPENDENT VARIABLE? 61 
POINT 6 
: VARIABLE 1 ? 9 
VARIABLE 2@ ? Si 
DEPENDENT VARIABLE? 75 
POINT 7 3 
VARIABLE 1 ? 9 
VARIABLE 2 ? 55 
DEPENDENT VARIABLE? 67 
POINT 8 
VARIABLE 1 ? 7 
VARIABLE 2 ? SO 
DEPENDENT VARIABLE? 58 
EQUATION COEFFICIENTS: 
’ CONSTANT : -15.70212765959 
VARIABLE( 1 0: 3.680851063828 
, VARIABLE( 2 ): .94952624113481 


COEFFICIENT OF DETERMINATION (Rte) = ,7156973588726 
COEFFICLENT OF MULTIPLE CORRELATION = .84598830e71 
STANDARD ERROR OF ESTIMATE = G.4288798755 


INTERPOLATION: CENTER 0 TO END PROGRAM) 
VARIABLE 1 ? 7 
VARIABLE ¢ 7 Si , 
DEPENDENT VARIABLE = 58.17921276596 


VARIABLE 1 ? 0 


END PROGRAM 


PROGRAM LISTING 


40 PRINT "MULTIPLE LINEAR REGRESSION" 
| 20 . PRINT 
| m9 REM - SET ARRAY LIMITS TO X(N+L) ,S(NFL) TINFL) ACNHL N42) 

30 DIM X%(5),8(9),T(9) ,A(3, 10? 

40 PRINT "NUMBER OF KNOWN POINTS"$ 

GO INPUT N 

GO PRINT “NUMBER OF INDEPENDENT VARIABLES"$ 

90 INPUT V 

BO X{h)=t 

50 FOR I=1 TON 
_ 100 PRINT "POINT" $I 
| 110 FOR J=i TOV 

t19 REM - ENTER INDEPENDENT VARIABLES FOR EACH POINT 

| 120 PRINT " VARIABLE"!J: 

J . 130 INPUT X(J+1) 
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140 
149 
150 
160 
169 
170 
19390 
190 
200 
210 
Fetch O) 
230 


40 


248 
249 
250 
260 
270 
280 
299 
3090 
305 
310 
320 
230 
S40 
350 
360 
370 
BB0 
aay 
400 
410 
AEN) 
430 
B40 
450 
460 
470 
480 
490 
O00 
510 
520 
525 
520 
540 
550 
560 
570 
580 
590 
600 
510 
620 
649 
650 
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NEXT J 

REM - ENTER DEPENDENT VARIABLE FOR EACH POINT 

PRINT " DEPESDENT VARI AGLE": 

INPUT X(V+tE) 

REM - POPULATE A MATRIX JO BE USED IN CURVE FITTING 
For K=2 TO Vt 

FOR L=it TO Vt+e 

AK LI FACK LEX CKD EX LD 

SUKISACK VTE) 

NEXT 


.NEXT K 


S(V+e) HSt(VtB +x (Vte) te 

MEXT I 

REM - STATEMENTS 250 TO SOO FIT CURVE BY SOLVING THE SYSTEM OF 
REM - LINEAR EQUATIONS IN MATRIX AQ) 

FOR Ts@ TO Vti 

T(T)#Atisl) 


NEXT I 

FOR I=i1 TO Vtl 

J=I 

IF ACS,1)¢30 THEN 340 
Jari 


TE J<eVtio THEN 300 
PRINT "NG UNTQUE SOLUTION" 
GOTQ 9310 

ror Ket TO Ve 

BHAir yh!) 

ACL AOFACT,B? 

AtI,K)=B 

NEXT K 

Zei/Atd ft) 

eoR <1 TO Vte 

ACL, KyeZeA(L.K) 

YEMT MK 

Fom Jeti TO Vri 

JE J=~ THEN 490 
zZe-A(I3,1) 

FOR Kei TO Vte 

ACI KFA GT O+ZFACT BK? 
NEXT K 

HEMT J 

HEXT = 


PRINT 
PRINT “EQUATION COEFFICIENTS: " 
PRINT ” CONSTANTS"; ACL ,V+2) 


FOR Is@ TO Vr 

PRINT NVARTADLE ("¢i-i;" 2 e"sACTVtE) 
NEXT © 

P=0 

FOR Ise TO vtt 

PaP+A(L Vte)# (SCL TIL) FS CL /ND 

HEXT JI 

at (YER) -SIL Fe /N % 
ZeR~P 

Lan-V-L 

PRINT 

L=F/R 


we Dre ene 


660 PRINT "COEFFICIENT OF DETERMINATIGN {(R#2) ="st 

670 PRINT "COEFFICIENT OF MULTIPLE CORRELATION =""SQGR(I) 

680 PRINT "STANDARD ERROR OF ESTIMATE =": SQR(ABS(Z/L)) 

690 PRINT | 

639 REM - ESTIMATE DEPENDENT VARIABLE FROM ENTERED INDEPENDENT VARIAR 
LES 

700 PRINT “INTERPOLATION: (ENTER 0 TO END PROGRAM) " 

710 P=A(1,V+eB) 

720 FOR J=1L1 TO-.V 

730 PRINT "VARIABLE ":J; 

740 INPUT X 

749 REM ~- TEST FOR END OF PROGRAM 

750 %Q&IF X=0 THEN 6810 

760. PEP+A(I+1 .V+e)#x 

770 WEXT J: 

780 PRINT "DEPENDENT VARIABLE ="oP 

730 PRINT 

B00 GOTQG 710 

810 END 
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This prograrn finds the coefficients 
tion is of the follawing form: 


y = 
where: yo = 
Cc sora 
O42... an FF 


The equation coefficients, cee 
are printed. 


You 
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th Grder Regression . 


i NT 





of an N th order equation using the method of least squares. The equa- 


dependent variabie 


constant 


coefficients of independent variables xx 2,...x1, respectively 


fficient of determination, coefficient of correlation and standard error of estimate 


must provide the x - and y - _-coordinates for known data points. Once the equation has been computed 


you may predici values of y for given values of x. 


The dimension statement at line 20 limits the Gegree of the equation. You can change this limit according to 


the following scheme: 


23 DIM AC2<DiT), 


R(0+7,04+2), TiD+2) 


where DB = maxirnum degree of equation. 


Example: 
The table below gives the stoppy 
speeds. Fit an exponcalis! curve to the 


rop.n. 
siopping dist 


-39 DIM ACS),RC3,4),T4) 
7 RUM 
NTH-GRDER REGK 


ne 3 dis sance (reaction plus braking distance) of an automobile at various 


lota. Estirnate the stopping — tance at 55 m.p.h, 


a 
on FB | 30 10 
64 | 90 | 1% 386} 


ancy 





DEGRE!I OF EQUATION 2 
NUMBER GF KNOWN POINTS? © 
¥.¥ GF POINT 4 2 20,54 
X,Y OF POINT @ ° 30,99 
X,Y OF POINT 3 ? 40,138 
X,Y OF POINT 4 ? 50,206 
X.Y OF POINT 5S 7? S0,e82 
X,Y OF POINT 6 7 70,596 
CONSTANT = 41. 7714289569 


1 DEGREE CORFFICIENT 


nok 


-} 0957142055598 
8, 785 7142BE-02 


@& DEGREE COEFFICIENT 
COEFFICIENT OFF DETERMIHATICN (Rte) * 9999279557663 
COEFFICIENT OF CORRELATION = «99996597323 * 
STANDARD ERROR OF ESTIMATE = i AL09TLIS36 
194 


perez ott 
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INTERPOLATION: (ENTER 0 TO END PROGRAM) 
X =? 55 
Y = &47.2750000003 


x =? 0 


END PROGRAM 


PROGRAM LISTING 


10 PRINT "NTH-GRDER REGRESSION” 
20 PRINT 
29 REM - SET LIMITS ON DEGREE OF EQUATION TO A(@2D+1),RIDt1 Dt) , Ts: 
(WHERE D=MAXIMUM DEGREE OF EQUATION) 
30 DIM AtC13),&(7,8),T(8) 
40 PRINT "DEGREE OF EQUATION"; 
50 INPUT D 
60 PRINT "NUMBER OF KNOWN POINTS"; 
70 INPUT N 
80 ACi)=N 
89 REM - ENTER COORDINATES OF DATA POINTS 
90 FOR I=1 TON 
100 PRINT "X,Y OF POINT"ST; 
$10 INPUT X.Y 
118 REM - LINES 120-200 POPULATE MATRICES WITH 
119 REM - A SYSTEM OF EQUATIONS 
i120 FOR f=@ TO @*d+1L 
$30 ACT) HACTI4xe(T-1) 
140 NEXT J 
450 FOR K=1 TO Dri 
160 RIK, DR eT CR eVRX4e (Kh) 
£70 Ti y sb Ci tVRK EKA 
$80 NEXT K . 
190 TDF) =TIDtB)+V42 
200 WEXT I 
209 REM ~ LINES 7210-4506 SOLVE THE SVSTEM OF EQUATIONS IN THE MATRICs” 
P10 FOR J=i TO Dt!1 
Pe0 FOR K=1i TO Del 
P30 RII,KISACT+K <2) 
240 WEXT K 
250 NEXT J 
260 FOR J=1 TO D+i 
270 KJ 
eBB0 IF RiK,J)<oG THEN 220 
290 K=K+i 
295 IF K<=D+i THEN ©89 
3200 PRINT "NO UNIGUE SOLUTION" 
310 GOTaG 790 
3PO FOR I=1 TO Dte 
330 S=R(J,1) 
340 RI,THER(K.2) 
aso R(K,1)=5 
360 NEXT 1 
370 Z=1/R(I,7) 
380 FOR Isi TO D+te 
390 R(F,L)=2Z*Rig,2) 
400 NEXT i 
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Parad 


&i0 FOR K=1 TO Dti 

: 420 IF KeJ THEN 470 

: 430 Zs-R(K,J) 

440 FOR Ist TO Dte 

450 R(K,2I=R(K,L)+2*R(5,7) 
460 NEST I 

470 WEXT i 

NEXT J 
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: 430 PRINT 

f = 495) PRINT" CONSTANT ="FR(1,D+E) 
: 499 REM ~ PRINT EQUATION CORFEICIENTS. 

} 500 FOR J=1 TOD 

: S10 PRINT J; "DEGREE COEFFICIENT ="5R(J+1,Dte) 


Dee) | 520 WEXT J 

530 PRINT 

a9 REM - COMPUTE REGRESSION ANALYSIS 
P=0 
550 For J=2 TO D+l 
G60 FePeR (I, D+aQe(TCS)-ACI IAT CLIN) 
NEXT J 
580 G=aT(Dte)-TUL a/N 


MOD eres nde t i ete 
in in 
Ren 
oO 


Wi 
~t 
ae 


: 590 Z=Q-P 

i 600 L=n-D-4 

: G20 PRINT 

‘ 630 JsP/i 

Gi0 PRINT “COSFFICIENT-OF DETERMINATION (RQ) s"3T 


6 GEO) PRINT “COEFFICIENT OF CORRELATION ="sGQR(J) 
660 PRINT "STANDARD ERROR OF ESTIMATE a"*GQR(Z/2) 
670 PRINT 

679 «OREM ~ COMPUTE Y-COORDINATE FROM ENTERED X ~COORDINATE 
PRINT “INTERPOLATION: (ENTER O TO END PROGRAM)" 
G39 ~FeR(L, DYE) 

700 PRINT “x 3"5 

710 INPUT X 

4 IF ¥eO THEN 790 

From J=i TO D 

740 PaPeRCIed D+) txts 

750 NEXT J 

760 PRINT "Y ="5P 

770 ~PRINT 

780 COTO 690 

760 END 
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Geometric Regression 
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This program fits a geometric curve to a set of coordinates using the method of least squares. The equa- 
ticn, coefficient of determination, coefficient of correlation and standard error of estimate are printed. 


You must provide the x - and y -coordinates of known data points. Once the curve has been fitted you may 
) predict values of y for given values of x. 


t 


} Example: . 
| The table below gives the pressures of a gas measured at various volumes in an experiment. The relation- 
ship between pressure and volume of a gas is expressed by the following formuia: 
pyK= C 
where: P = pressure 
V = volume 
C and K ave constants. 


This formula can be rewritten in standard geometric form: 
p=cy-* 
Note the exponent is negative, which accounts for the negative exponents the program caiculates. 


Fit a geometric curve to the data and estimate the pressure of 90 cubic inches of the gas. 


volume f 56.1 | 60.7 88.3 120.1 187.5 
30.2 196 | 30.5 


pressure | 57.0 | 5 1.6 






+ RUN 
GEQMETRIC HEGRESSION 


NUMBER OF KNOWN POINTS? 6 


%,Y OF POINT 1 7? 56.1,57.0 
X.Y GFE POINT @ 7? 60.7,51.0 
%,Y OF POINT 3 ? 73.2,39.2 
X,Y OF POINT 4 ? 48.3,30.¢ 
%.Y OF POINT S ? 120.1,19.6 
X,Y OF POINT 6 ? 187.5,10.5 


F(X) = 16403. 68991715 * X4#-1. 401550582443 
COEFFICIENT DF DETERMINATION (Rt2) = .939958N31E731 
COEFFICIEHT OF CORRELATION = .99999941564 

STANDARD ERROR OF ESTIMATE = 7.73614568E.-04 
INTERPOLATION: (ENTER X=0 TO END PROGRAM) 

x =? 30 

Y = 29,37349825098 

x =? 0 

END PROGRAM 
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“-2OGRAM 1.LSTING 


a Meee ee ER net een Pao 


pint AS ee tat ee 


10 
ra) 
30 
&Q 
50 
G9 
790 
Bc 
50 
59 
100 
110 
420 
429 
130 
146 
150 
160 
170 
ino 
$90 
200 
209 


Pid 


' BRO 
- 230 


, abt 


E49 


£ 250 
| B60 
eye 
» obo 


ee re ee 


Se BL 


250 
200 
329 
320 
330 
soo 
340 
35G 
30 
379 
280 
ooo 
400 
410 


PRINT "GEOMETRIC REGRESSION" 
PRINT 

PRINT "NUMBER OF KNOW POINTS "3 
INPUT N 

J=0 

K=O 

LQ 

4=0 


~~ 


Ra=0 


REM ~ ENTER COORDINATES OF DATA POINTS 
FoR T=1 TOWN 

PRINT "*,Y OF POINT "$25 

INPUT X.Y 

PEM — ACCUMULATE INTERMEDIATE VALUES 
YelLs (Vv) 

KEL (GE CX) 

Jatrnx 

make y 

L=Lextea 

Hel+¥tea 

Para Key 

HEMT 

pret - CALCULATE AND PRINT COEFFICIENTS OF EQUATION 
ma (eRe 2 CNEL STS) 

Ay (> BRAT) ZN 


POT "ROE &°sBXP (Ads 1 Xe" 

PEM ~ CALCULATE REGRESSION ANALYSIS 

Jab * (REPK/ND 

Meh K te /N 

cared 

PRIM 

Reus /M 

SINT “COEERICIENT OF DETERMINATION (Rt) =°9RE 
PEINT “COEFFICIENT GF CORRELATION ="FSGR(R2) 
 RIUT “STANUARD ERROR OF ESTIMATE ="s8GR(K/(N-E)) 
PRINT , 

aay, «= ESTIMATE Y-CGORDINATE FROM ENTERED x- COORDINATE 
SRINT "INTERPOLATION: (ENTER X=0 TO END PROGRAM)" 
PRINT °X ="5 

INPUT X 

IF xs0 THEN 410 

PRINT "Y =°sEXP(A)*X4B 

PRINT 

GOTO B50 

END 
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: Exponential Regression 

nner RC 

; . This program finds the coefficients of an equation for an exponential curve. The equation is in the following 
form: 

. f(x) = aebx 

} where a and 6 are the calculated coefficients. 

t The equation coefficients, coefficient of determination, coefficient of correlation and standard error of estimate 
are printed. 

) . . You must provide the x - and y -coordinates for known data points. Once the curve has been fitted you may 


predict values of y for given values of x. 


Example: 


The table below shows the number of bacteria present in a culture at various points in time. Fit an exponen- 
tial curve to the data and estimate the number of bacteria after 7 hours. 


ol if 2/3] 4] 5 
89 | 135 |206 










number of hours 
number of bacteria 






| 6 | 





:RUN 
} EXPOHENTIAL REGRESSION 


UMBER OF KNOWN POINTS? 7 
Y QF POINT 0,25 
Y OF POINT 1,365 
Y OF POINT 2,58 
Y OF POINT 3,89 
Vv 
Y 
Vv 


IA 


ad 


OF POLHT 4,135 
OF POINT 5,206 
QF POLAT 6,915 


Wea 7 WP 
J 


3 


24 , 96166337346 
4223750795699 


u>t KKM MMMM Z 


COEFFICIENT OF DETERMINATION (R42) = .9999935513734 


COEFFICIENT OF CORRELATION = .99999677565 


) STANDARD ERROR OF ESTIMATE = 2.53820862E-02 
INTERPOLATION: (ENTER %=0 TQ END PROGRAM) 

| oo ueaueecmaones 

X =? 0 


| END PROGRAM 
\ 
, 
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PROGRAM LISTING 


190 
ao 
30 


4Q 


400 
410 


TT at PU 


PRINT 
PRINT 
PRINT 
INPUT 
J=0 
m=) 
L=0 
M=O 
Ros 
REM 


FOR I= 


PRINT 
INPUT 
REM - 


HEXPONENT IAL REGRESSION" 


"NUMBER OF KNOWN FOINTS"; 
iH 


ENTER COORDINATES GF DATA POINTS 
1 YON 

wy VY OF POINT "STS 

x1 

ACCUMULATE INTEXMEDIOTE VALVES 


Ye_0G (Y) 


Jagex 
Kek+y¥ 


LeL+xt2 
MaMe¥ te 
R2eRe+KHY 


NEXT I 


Peery 


a (rR 


CALCULATE AMD PRINT COEFFICIENTS OF EQUATION 


a-KE DS (NFL ARTS) 


Az (e-BED) fs 


"A =" SEXP (A) 
es ry fl : Fi 
ALCULAT: REGRENSION TABLE VALUES 


edt CR TE AID 
Matqe it /M 


KettinJd 
PRINT 


Feeley AP 


PRINT 
PRINT 
PRINT 
PRINT 
REA = 
PRINT 
PRIMT 
LNPUT 


LE XO 
PRINT 
PRINT 


GoTo 
END . 


“COEFFICIENT OF DETERMINATION (Rte) ="sRe 
NCOEFFICZENT OF CORRELATION ="3SOR (Re) 
tOTAMDARD ERROR OF ESTIMATE. ="ESQR(K/(N-@?) 


ESTIMATE Y-VALUE FROM ENTERED ¥-VALUE 
“THTERPOLATION: (ENTER X=Q TO END PROGRAM)" 
KX Pad . 
x 

THEN 410 
ny mt “EXP (A) SEXP CHEK) 


350 
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System Reliability 
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be This program calculates the reliability of an operating system that is subject to wearout and chance failure, 
: You must enter the system's operating time and the wearout time and failure rate of each component. 





Example: 
» Compute the reliability of a computer system operating for 1000 hours with the components shown in the 
list below. 
; : . wearout (hrs.)__ failure 

CPU § 
Y ‘ 
terminal 

disk 
printer 

*RUN 


SYSTEM RELIABILITY 


(TO END PROGRAM ENTER 0) 
CQPERATING TIME IN HOURS? 1000 
NUMBER OF COMPONENTS? 4 
COMPONENT 1 
AVERAGE WEAROUT TIME? 45000 
! AVERAGE FAILURE RATE? .0002 
COMPONENT & 
AVERAGE WEAROUT TIME? 3000 
AVERAGE FAILURE RATE? .0004 
COMPONENT 2 
AVERAGE WEGROUT TIME? 3000 
AVERAGE FAILURE RATE? ,.000145 
COMPONENT 4 
AVERAGE WEAROUT TIME? 1500 
AVERAGE FATLURE RATE? .00015 


SYSTEM RELIABILITY = .1353352932367 
OPERATING TIME IN HOURS? 0 


END PROGRAM 


PROGRAM LISTING 


10 PRINT “SYSTEM RELIABILITY" 

20 PRINT 

30 PRINT "(TO END PROGRAM ENTER 0)” 
. 40 PRINT "GPERATING TIME IN HOURS": 
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59 
60 
70 


50 

So 
100 
110 
120 
430 
140 
150 
i159 
160 
170 
160 
169 
190 
200 
2i0 
eis 
Peo 
236 


REM - TEST FOR END OF PROGRAM 


IF T= 


PRINT 


THEN 239 
NUMER OF CUMPOMENTS "5 


INPUT WN 


£20 
REV - 
FOR i= 
PRINT 
PRINT 
INPUT 
PRINT 
INPUT 


: RES = 


Zearih/ 


ENTER DATA FOR EACH COMPOMENT 
1 TON 

"COMPONENT "32 

» AVERAGE WEERCUT TINE’ 

W 

" AVERAGE FAILURE RATE" 

F 
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INCLUDE EACH COMPONENT IN RELIABILITY 


ble 


HEAT I 


PRINT 
REM - 
Z=EXP { 
PRINT 
PRINT 
REM = 
GOTo 
END 


CALCULATE RELIASILITY, PRINT 
-Z8T) 
OGYSTEM RELIABILITY ="32_ 


RESTART PROGRAM 
4G 
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Average Growth Rate, Future Projections 


This program calculates the average growth rate of a company, then projects figures for future years. The 
growth rate and projections could be computed for any aspect of a company, such as sales, earnings, number of 
employees, o7 patronage. You must provide established figures for a past series of years. ‘ 

The dirnension statement at line 30 limits the number of past figures you may enter. Any need to alter this 
limit should be done in the following manner: 


RO DIM S{(N) 


where NV =the number of years for which figures are known. 


Example: 
The borrowing records for Claremount County Library are tabulated in the graph below. What is its average 
growth rate? How many hooks can it expect to lend in its terith and twentieth years of service? 


1,000 books borrowed 





220 DIM S(9) 
+ RUM 
AVERAGE GROWTH RATE, FUTURE PROJECTIONS 


NUMBER OF YEARS FIGURES ESTABLISHED? 3 


FIGURE: YEAR 1 7 26 
YEAR & 7 35 
YEAR 3 7? 4e 
YEAR 4 7 45 
YEGR 5 ? 41 
YEAR & 7? Si 
-YEAR 7 7 60 
VEAR 8 ? 6c 
YEAR 9 ? 74 
AVERAGE GROWTH RATE = 11.58 te 
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{ENTER 0 TO END PROGRAM) 
PROJECTED SALES FOR VEAR? 10 


= 81.29 


PROJECTED SALES FOR YEAR? ©0 


= 249,88 


PROJECTED GALES FOR YEAR? O 


EMD PROGRA&M 


PROGRAM LISTING 


10 
£29 
eg 
30 
32 
49 
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PRINT "AVERAGE GROWTH RATE, FUTURE PROJ ECTIGNS” 
PRINT . 

REM ~- SET ARRAY S TO NUMBER OF YEARS PAST FIGURES KNOUN 
pim S20) 

REM - STATEMENTS 40 TO 120 REQUEST USER INPUT 
PRINT “NUMBER OF YEARS FIGURES ESTABLISHED"; 
INPUT WN 

FOR isi TON 

IF >i THEN 100 

PRINT "FIGURE: YEAR" IS 

GOT 1106 

PREM 4% YEAR? SL: 

INPUT SP) 

NEXT 2 

PEM -« TNLTTALIZE VARIABLES FOR FLRET YEAR 

Tro (HEC C17 

YaQ 

BEM - (OOP FOR REMAINING VEARS OF HISTORY 

FOR FP TON 
Leioe iat >} 

Taps. 

Ves (1-2 EL 

NEXT L ‘ 

REM - CALCULATE AVERAGE GROWTH RATE 

AaGe (REV s(t L9-T)7 {N)/ (41) 

GeEXP (&I-k 

PEM - ROUND CFF, PRINT 

POINT “AVERACE CROWN RATE ="SINTK(G#10000+.5)/1003 Naw: 
PRINT 

REM - CALCULATE AVERAGE ONNUAL GROWTH FACTOR 
GaP ye iP /N-AS Ne) {RY : 


BRINT "(ENTER 0 TO END PROGRAM)" 


REM »~ INPUT YEAR NUMBER 

PLINT “PROJECTED SALES FOR YEAR"; 
INPUT YA 

REM - TEST FOR END OF PROGRAM 

IF Yin) THEN G20 

PEM - CALCULATE PROJECTED SALES FIGURE 
Giathe (heG)e (Vins) 

REM - ROUND GFF, PRINT 

PRINT " ="sSINT(S1#100+.5) £100 
KEM - RETURN TOR HORE DATE 

GOTO 260 
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Federal Withholding Taxes 
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This program calculates the amount of federal incorne and FICA taxes withheld from one’s earnings. You 
must provide employee information as to marital status, the number of exemptions claimed, the amount of taxa- 
ble pay, and year-to-date taxable pay. 


| The number of pay periods per year is established at line 80. If your pay period is other than monthly, you 
musi alter this statement to set VV equai to the number of pay periods per year. F 


There ts a considerable amount of tax information which may change from year to year. The values listed in 
the data tables at lines 30 and 40 are among those that may need periodic revision. The annual values for single 
and married persons should be compared each year with those fisted in Table 7 of the current IRS Circular E. 


The annuai FICA rate, the FICA cutoff amount and the annual amount of withholding allowance may also 
need revision. The values established at lines 50, 60 and 70 should also be compared to those listed in the current 
IRS circular. 


Annual rates and cutoffs are used irrespective of your actual pay period frequency. The program automat- 
ically adjusts them to match your pay period. 


Examples: 


Judy earns $900.00 per month. The payroll clerk is figuring her March paycheck. Judy is single and claims 
only herself as a dependent. What amounts are withheld from her paycheck? 


_ Dr. Berger has earned $1,408.75 this month. So far this year he has grossed $20,183.72. He is married and 
clairns four dependents. \Whai arnourts will be withheld this month for the federal government? 


> RUN 
FEDERAL WITHHOLDING TAXES 


MARITAL STATUS (i=SINGLE, @=MARRIED)? J 
WITHHOLDING TAX EXEMPTIONS? 4 

TAXABLE PAY? 900 ; 

YTD TAXABLE PAY? 1800 

TAXABLE = $ 900 

INCOME TAX = $ 128.5 

FICA = 4 55,17 


MORE DATA (1=VES, O=NQ)? 1 


MARITAL STATUS (1=SINGLE, ®@=MARRIED)? 2@ 
b WITHHOLDING TAX EXEMPTIONS? 4 

TAXABLE PAY? 1408.75 

YTD TAXABLE PAY? 23750.03 

TAXABLE = @ 1409.75 

INCOME TAX = © 152.09 

FICA = & 0 


MORE DATA (1=VYES, O=NO)? © 
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‘-gGRAM LISTING 


40) PRINT “FEDERAL. WITHHOLDING TAXES" 
- 20 «PRINT | 
97 REM ~ THE FOLLOWING DATA CONTAINS THE 1980 TAX TABLES FROM IRS 
99 REM ~ CIRCULAR E, BERCENTAGE METHOD, TABLE 7 (ANNUAL PAYROLL) 
AG REM ~ FOR SINGLE PERSONS 
"30 DATA 15.1420 18,3300 21 ,6800 ,26,10200 ,20 14200 34 ,17200 ,39 22500 
39 REM - FOR MARRIED PERSONS 
. 40 DATA £52400 .18,6600 ,21 ,10900 24, 15000 ,28 19200 ,22 ,23600 37 28500 
49 REM - FisFICA RATE AS DECIMAL 
- 50 Fis.0613 
' 59 REM ~ FesFICah CUTOFF AMOUNT 
. 60 Fere5900 2 
- 69 REM - WLsAMOUNT OF WITHHOLDING ALLOWANCE (ANNUAL PAYROLL } 
70 «Wi=1000 
99° ~REM - NSNUMBER OF PAY FERPTODS PER YEAR 
80 Nelle 
@9 REM - LOAD THE TAX TABLE ARRAYS FROM DATA TABLES 
99 DIM Fi(@8) 
100 FOR f=1 7O eB 
1140 READ Fi(I) 
$20 NEXT 2 
130 PRINT 
139 REM ~ STATEMENTS 140 TO 210 PEGUEST PERTINENT EMPLOVEE DATA 
4G. PRINT "MARITAL STATUS {LeSINGLE, @=MARRIED)"; 
(50 INPUT S 
160 PRINT "WITHHOLDING TAX EXEMPTIONS "3 
{70 INPUT ot 
180 PRINT *"“TAXGELE PAY"; 
190 INPUT P 
199 REM - VeTOTShL TAXABLE PAY THIS VEAR, EXCLUDING CURRENT PAYCHECK 
2O0 PRINT "YTD TAXABLE PAY" s 
P1g 0 TNEUT OY 
549 REM —- ANNUALIZE CURRENT TAXABLE PAY, ADJUST FOR EXEMPTIONS 
Po) | 6 G=PeN-Wwitw 
A395 Tis0- 
2295 6 REM - CALCULATE INCOME TAX 
2490 FOR l=P TO 7 
Q5Q MeBeye14ae(S-L yk 
260 TE G¢sFité-i)} THEN 3s 
ayy oT Gri ¢X4i) THEN 500 
mBG TAsTit (G-FAL CXL) BFL (K-22) /100 
299 GOMG 3830 
300 Tietit (EL(ME4 AFL OX 2) AFA (K-2 7/100 
310 NEXT I 
R29 Ti sTib(G-Fi(x4h) HFL CK) S100 
8290«OREM ~ ROUND OFF TO NEAREST CENT 
33¢)) TALBINT (CTA /N)H16004.5)/71 00 
340 Te=0 
249 «PEM - CALCULATE FICA 
359 IF YOF@ THEN 409 
360 IF VePoFe THEN 250 
379 RINT (PEELS L00+ 65) 4100 
280 GOTO 400 2 
ang REM - ROUND OFF Td NEAREST CENT : 
S99)  TReINT( ((FR-Y) SFL) 8100+ 65) /100 
163 


164 


ent Pee ee. eS 


3993 REM ~ PRINT RESULTS 

400 PRINT "TAXABLE = $%3P 

410 PRINT “INCOME TAX = H"5 TL 

420 PRINT "FICA = 8"35T2 

430 PRINT 
439 REM - RESTART OR END PROGRAM? 
440 PRINT "MORE DATA (L=YES, O=MO)"; 
450 INPUT S 

460 IF S=1 THEN 130 

470 END 
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Tax Depreciation Schedule 
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This program tabulates annuel depreciation amounts. You can use the sum of digits method or any declin- 
ing balance percentage method. You must know the purchase price (initial value), salvage value at the end of the 
depreciable life, and the life of the item baing depreciated. If you are doing declining balance depreciation, you 
must also know the percentage method. 


Examples: 
The Miracle Corporation put a new roof on their office building for $27,000.00. They expect to replace It in 
nine years. What would the annual depreciation amounts be using the sum of digits? 


Heavenly Bank built a new home office building for $1.2 million. Run a tax depreciation schedule on the 
building using 150% declining balance method with a 30 year life. Assume a salvage value of $250,000, You wil! 
notice that the depreciation falis beiow straight line ($31,666.67) per year) at yeer nine. 


2 RUS 
TAX DEPRECIATION SCHEDULE 


PURCHASE PRICE? &700G6 

SALVAGE VALLHE? ¢ 

LIFE IN YEARS? & 

ENTER £ FOR SUM OF DIGITS, & FOR DECLINIMG BALANCE? 4 


SUM GF DIGITS TAX DEPRECTATION 
PRICE © 27000 
SALVAGE VALUE & 0 
MET DEPRECIATED #7000 
LIFE 9 YEARS 


YEAR DEPRECIATION BALANCE 
1 5400 £1600 
read 4500 16800 
3 4200 12600 
4 3606 S000 
G 3000 6000 
& #42600 S600 
7 i800 1800 
8 1200 600 
se) 600 0 


MORE DATAZ(i=VYES,OFNO}? 1 


PURCHASE PRICE? L200000 

SALVAGE VALUE? 250000 

LIFE IN VEARS? 30 

ENTER 4 FOR SUM OF DIGITS, @ FOR DECLINING BALANCE? & 
METHOD Ti 4? 150 
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DECLINING BALANCE TAX DEPRECIATION 


PRICE © 
SALVAGE VALUE % 250000 
NET DEPRECIATED $ 350900 


LIFE 30 YEARS 


METHOD 


i590 % 


DEPRECIATION 


47500 
45125 
42868 .75 
40725 .31 
38689.05 
— B86754.59 
34916.87 
33171 .02 
31i512.47 
29936.85 
28440 
27018 
25667.4 
24383.75 
23164.56 
22006.33 
P0906.02 
-19860.72 
1G267.68 
179RB4.3 
17028 .08 
16176 .68 
—{S867.84 
14599.45 
13869.48 
13176.01 
12517.2 
11951 34 
11296.78 
10731 .94 


MORE DATA? (1=VES,0=NQ)? O 


END PROGRAM 


PROGRAM LISTING 


eT et ern a 5 el 


1200000 


BALANCE 


502500 
6573575 
814506.25 
773780 .94 
735091 .869 
698337.3 
663420 .43 
630249 .41 
5987356 .94 
568800.09 
5403560 .09 
51384¢e.09 
487674 .99 
462291 .24 
4401e6.68 
438120.35 
397214.335 


377353.61 


358485 .93 
340561 .63 
320533 .55 
3073565 .87 
291°89,03 
277389.58 
265520 .1 

250344.03 
237826 .89 
2e5935.55 
214658 .77 
£03906.83 


PRINT "TAX DEPRECIATIUN SCHEDULE” 


PRINT 


REM - ENTER INITIAL VALUE SND ROUND OFF TO NEAREST CENT 
PRINT "PURCHASE PRICE"; 


-INPUT V 


VeINT (V#100+.5)/1900 
REM - ENTER Eid VALUE AND ROUND OFF TO NEAREST CENT 


PRINT “SALVAGE V 


INPUT S 


SaINT(S*S 


O0+.5)/160 


LUE"S 


REM - COMPUTE AMGUNT TO DEPRECIATE 
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oo 
99 
100 
110 
$19 
$20 
130 
{40 
450 
$58 
159 
460 
163 
370° 
jao 
130 
00 
209 
£10 
2i93 
R20 
230 
aad 
0 
260 
70 
moO 
230 
200 
aid 
Dew 
ett 
wok 
BAG 
349 
350 
pnb 
eet e) 
369 
IO 
oad 
230 | 
&oy 
450 
4e3 
$30 
44.9 
Aah B 
Hag 
450 
460 
4O9 
470 
a73 
490 
Aya 
430 


D=V-S 

REM ~ ENTER LENGTH OF DEPRECIATION 

PRINT "LIFE IN YEARS"; 

INPUT Y 

REM - CHOOSE DEPRECIATION METHOD 

PRINT "ENTER § FOR SUM OF DIGITS, @ FOR DECLINING BALANCE": 
INPUT x 

IF mea THEN 450 

IF X<?i THEN 120 

REM - EY SUM OF DIGITS!) METHOD 


REM ~ Ri IS THE CUMULATIVE AMOUNT DEPRECIATED 


RL=O 

REM - N IS THE PRINTED LINE COUNTER 
N=O6 

PRINT 

PRINT 


FOR I=i1 TO Y 

REM ~ TEST FOR FULL PAGE 

IF N<5S THEN 330 

REM - PULL PAGE: SPACE TO TOP OF NEXT PAGE AND PRINT HEADINGS 
FOR f12#N TO &6 


PRINT 

NEAT Ut 

raf 

PRINT ® Sum OF DIGITS TAX DEPRECIATION" 
PRINT " PRICE #"5V 

PRINT * SOLVAGE VALUER $°75 

PRINT " MET DEPRECIATED $"3V~-5 

PRIN ” LiFE"3Y¥3 “YEARS” 

PRINT 


PRINT "YEAR", "DEPRECTATION", "GALANCE"™ 
REM - COMPUTE DEPRECIATION AND ROUND OFF TOD HEAREST CENT 


raPayye (YD 1S CCV Fb RY) 
Rely (Re 100+.5) 7/100 
REM - ACCUMULATE DEPRECIATION 
RLseki+k 
REM - COMPUTE BALANCE TO DEPRECIATE 
B=D-R4E 
PEM -~ TEST FOR COMPLETE DEPRECIATION 
XE B>O THEN 410 
Ri=Ri+re 
R=R+E 
K=0 
PRINT L,R,G 
NN i 
NEXT XT 
GOTO Foo 
PEM ~ BY DECLIMING BALANCE METHOD 
REM - ENTER DECLINING ELANCE PERCENT 
PRINT "METHOD IN 4°35 
INPUT M 
REM - CONVERT PERCENT TO DECIMAL 
M=H 4100 
PIM - N COUNTS THE LINES PRINTED OM EACH PAGE 
H=6G 
REM - R IS THE AMOUNT LEFT TO DEPRECIATE 
R=) 
167 
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500 
510 
519 
520 
Seo 
530 
540 
550 
560 
570 
580 
590 
600 
610 
G20 
630 
640 
649 
650 
659 
660 
670 
680 
699 
700 
703 
710 
720 
730 
740 


PRINT 

FOR I=1 TOY 

REM ~- TEST FOR A FULL PRINTED PAGE 

IF N<5S5 THEN 650 

REM ~ FULL PAGE: SPACE TO TOP OF NEXT PAGE AND PRINT HEADINGS 


FOR 11=N TO 66 


PRINT 
NEXT I4 

N=8 

PRINT " DECLINING BALANCE TAX DEPRECIATION" 
PRINT # PRICE $°3V_ ; 
PRINT “ SALVAGE VALUE $"3S 

PRINT * MET DEPRECIATED #°;D 

PRINT " LIFE":¥3 "YEARS" 

PRINT " METHOD 'sM#1005°%" 

PRINT 


PRINT "YEAR", "DEPRECIATION" , "BALANCE" 
REM ~ COMPUTE DEPRECIATION AND ROUND OFF TO THE NEAREST CENT 
RLSINT(CREIM/Y #1004 £5) /100 

REM - ACCUMULATE REMAINING BALANCE 
R=R-Ri 

PRINT I,Ri,.R 

H=N+ 1 

NEXT I 

PRINT 

REM - RESTART.OR END PROGRAM? 

PRINT "MORE DATA? (L=VES,02NO) "5 

INPUY x 

IF x=iL THEN 20 

END 
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Check Writer 
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This program prints a check. You must provide the date, ammount and payee of the check. The program 


translates the date and amount to words and prints providing spacing within the check. 


You should regard the program sted below as a sarnple of a check-writing program. Very few checks will 
conform exactly te the spacing provided in this program. The method of translating words from numbers is 


generally applicable. Spacing should be altered to conform to your Own check format. 


~\hen the program asks the question REALY TO PRINT CHECK? itis prompting you to insert a 


blank check in your printing device. The check should be set one line above the 


printed. 
Once the check is set up, key RETURN (no other entry Is required) and the check will be printed. 


Example: 
Among the checks that Miracle Corporation rust write a 
one ta rreida Alexancer for $103.75. Print the chacks using the computer. 


: RUN | 
CHECK WRITER 


DATE (AMDDYV?? 208.7 


- (TO EMD PROGRAM ENTOR TENDS) 
ELRET HAME OF PAVEE? GemORME 6 
STES 


LAGT HAME OF PAVEE? ASSOCIbK 
AMOUNT GF CHECK’? 437% .09 
READY TO PRINT CHECK? 


— perenne amie ert che TT LOSS RAST IS, 


NO. 328 
HEAVENLY BANK 
EMERYVILLE OFFICE 7 gs 
4120 ASHBY AVEHUE MARCH 81° Tt 
EMERYVILLE, CA 94601 BWV 

amount $ 4975 . 69 








PAY TO THE ORDER OF OSBORNE & ASSOCIATES eae a 


ne th 








FOUR THOUSAND MINE HUNDRED SEVEMTY-FIVE DOLLARS AND BS SENTS 
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VIRACLE CORPORATION 
1111 COUNTRY ROAD 


COUNTRYVILLE, CA 94132 eae nan CLR A 
1328252158 


GEE 5M LF EAE TEES I LE TET Rt ETE a 


line on which the date is to be 


one to Osborne & Associates for $4975.89 and 
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FIRST WAME OF PAYEE? FREIDA 
LAST NWAME OF PAYEE? ALEXANDER 
AMOUNT OF CHECK? 103.75 

READY TO PRINT CHECK? 


— TA 






















HEAVENLY BANK NO. 382 
EMERYVILLE OFFICE 
4120 ASHBY AVENUE MSRCH BB 1977 
EMERYVILLE, CA 94601 . WAROB AY 
| AMOUNTS 103.75 
PAY TO THE ORDER OF FREIDA ALEXANDER 
ONE HUNDRED THREE DOLLARS AND 75 CENTS 

MIRACLE CORPORATION 

4111 COUNTRY ROAD 

COUNTRYVILLE, CA 94132 

1328252158 


Ae pA VT A PACAP SATO PE I ABA ot ; 
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FIRST NAME GF PAYEE? END 


END PROGRAM 


PROGRAM LISTIHG 


1060 PRINT "CHECK WRITER" 
20 PRINT 
20 DATA “ONE”, "TWO" ,"THREE", FOUR", "FIVE", "SIX", "SEVEN", "EIGHT" , "NINE" 
40 DATA "TEN", "ELEVEN", "TWELVE", “THIRTEEN”, "FOURTEEN”, “FIFTEEN”, “SIXTEE 
Ne 
50 DATA "SEVENTEEN", “EIGHTEEN” , "NINETEEN", "TWENTY", "THIRTY", "FORTY" 
GO DATA "FIFTY", "SIATY" , "SEVENTY" , "EIGHTY", "NINETY" 
70 DATA "JANUARY" , "FEBRUARY", "MARCH", "APRIL", "MAY", "JUNE". "JULY" 
B80 DATA “AUGUST®, "SEPTEMBER" , "OCTOBER", "NOVEMBER" , "DECEMBER" 
89 REM - ENTER DATE WITHOUT COMMAS; DAY AND YEAR MUST CONTAIN TWO DIGIT 
SF ; 
20 PRINT “DATE (MMDDYY)"; 
160 INPUT TD 
110 PRINT *--(TO END PROGRAM ENTER ‘’END‘)~--* 
120 PRINT “FIRST NAME OF FAYEE": 
130 INPUT F& 
139 REM. -~ END PROGRAM? 
140 IF FS="END" THEN (7790 
150 PRINT "LAST NSME OF PAYER" S$ 
160 INPUT Ls 
170) «=PRINT "“AMGUNT OF CHECK" $ 
180) 0 «6oINPUT A 
169 REM - INSERT BLANK CHECK IM PRINTING DEVICE, KEY RETURN WHEN READY 
150) PRINT "READY TO PRINT CHECK"; 
200 INPUT xX 
- £09 REM ~ BREAK ENTERED DATE NUMBER INTO MONTH, DAY, YEAR FIGURES 
rca Di=INT(D/10000} 
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300 


B10 
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BBO 
330 
339 
: B40 


: B43 
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; 360 


1 870 
» 300 
2300 


iota te 
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/ A00 
"ALO 
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: 4d 
' 450 
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«ABO 
' 450 
BOO 
S10 


. 519 


620 


. BES 
qa 
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pn ok 


540 


«850 


scoot 
569 
HOO 
570 
586 
590 
600 
GAG 
620 
O25 
636 
G29 
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DE=INT ((P-DL#100003 7100) 
NSsINT(D~(DLFL004T25*100) 

BEM - GU TO CORRECT MONTH IN DA 
RPESTGRE &7+D1 
READ *0O% 

REM - PRINT DATE 
PRINT ,,,0%$;De;" 
So ol a 
PRINT 424°" 3A 
PRINT 49" "3 
PRINT 
PRINT 


eS 


PRINT 


TA TASLE 


PEM - AMOUNT OF CHECK LEGITIMATE? 


IF ACO THEN 779 
AlLzA 
REM - AMQUNT IN THE THOUSANDS? 


NLSINT (AL /1 ES) 


cee Mee aT ab neal epee BS take aera TER they dal EE he oe Be SAT Thdlle bt 2 pik Pinte 


PRINT AMOUNT TWICE; FIRST TIME FOR SHARED BOX 


REM ~ CANT PRINT FOR AMOUNT OVER $99999.99 


770 
390 


IF NL>S9 THEN 
TF Wie0 THEN 
GOSUBR S46 
PRINT “THOUSAND "s 
HLEALONIF LES 

SM = GHOUNT IN 
MLEINT (4/109) 
TF Wied THEN 
GOSUE O40 
PRINT “HUNDRED "4 

ALBALAALEIOO 

REM - SMOQUNT IN THE ONES GR TEN 
HASINT CAL) 


THE HUNDREDS? 


ALO 


IF WNi- 
TF Ars} 


GOTO 
GOSUE 
PRINT 


‘) TREN 


820 
THEN 509 
ALD 

640 
"DOLLARS "3 


AL=AL- Ti 


REM - 


REP - 


wh 


IF AC! 


PRINT 


ARY 
IF AL<.OL 


CENTS? 

THEN 600 
AMOUNT 19 CENTS GLY D 
THEN Sho 


MAND" § 


iP 


AL=ALFLOO 
REM ~ CENTS GRE PRINTED It NUMERIC FORM 
PRINT AL; "CENTS" 

REM - GPACE OFF OF CHECK 


PRINY 
PRINT 
PRINT 
PRINT 


BRINT | 


PRINT 
REM - 
coro 
REM - 


LF Nisa 


RESTART 
120 
SUBROUTINE TQ GET WORDS F 
THEN 730 


EROGRAM 


apn tate ae PT ore ee ee te pe taker 
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ON’T PRINT 
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650 
660 
670 
680 
690 
790 
7190 
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740 
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759 
760 
770 
“730 
790 


172 


ee Ae al Do ae ee i 


cet ne MRE RT ENTE me AINA, eek AR TE 


Cert ita ron eM me 


RESTORE (M1-20)/10+20 
READ x0S 

PRINT x0%3 
ASaNi-INT(ML/10)#10 
IF A8=0 THEN 760 
PRINT "-"4 

RESTORE AS 

GOTO 740 


‘RESTORE N1 


READ XC% 

PRINT xO85" "5 

REM - END OF SUBROUTINE 
RETURM 

PRINT ,"##R#HVOL DSH REH" 
GOTO 570 

END 
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This program calculates the cost and the cost per serving of 4 single recipe. For each ingredient you must 
provide the purchase price, the amount purchased, the amount used in the recipe, and the number of recipe units 
per purchase unit. ; 


Exampie: 

Listed below is a recipe for strawberry chortcake. Caiculate the cost cf the recipe and the cost per serving. 
What would the cost per serving be if one cake serves 12? The conversion factors and price per ingredient are 
supplied. . 


Strawberry Shortcake — 8 servings 


3c. flour 2.5 c./Ib. $1.59 5 Ib. 
31/4 tsp. baking powder 15 tsp./oz. .43 4 02. 
Vac, sugar 2 c./Ib. 1.24 § Ib. 
11/4 tsp. salt 6 tsp./oz. 29 1 Ib. 
Voc. butter 2 c./tb. 1.49 7 tb. 
7 egg 12/doz. .75 + doz. 
¥%3c, milk 4 c./at. 40 1 qt. 
3 pts strawbersies cme 49 1 pt. 
VY. pt. whipping cream —_— 59 Ye pt. 


2 RUM 
RECIFE COST 


MUMERR CF INGREDIENTS? 9 
INGREDIENT 1s 

cosST ror BULK UNIT IN STORE? 1.59 

NUMBER OF UNITS IN BULK? S 

NUMBER? OF RECIPE UNITS PER BULK UNIT? &.5 

HUMEZE OF RECIFE UNITS CSLLED FOR? 3 
INGREDIENT ¢ oe 

COST FOR EVULE UNIT IN STORE? .43 

NUMEES OF UNITS IN BULK? 4 

HUMBER GF RECIPE UNITS PER BULK UNIT? 15 

NUMBER OF RECIPE UNITS CALLED FOR? 2.25 
INGREDIENT Ss 

COST FOR BULLI UNIT IN STORE? 1.24 

NUMBER OF UNITS IN BULK? & 

MUMBER OF RECIPE UNITS PER MULK UNIT? 2 

NUMBER OF RECIPE UNITS CALLED FOR? .25 
INGREDIENT 4 3 

COST FOR BULK UNIT IN STGRE? .29 

NUMBER GF UNITS It BULK? 1 

NUMBER OF RECIFE UNITS PER BULK UNIT? 96 

NUMBER GF RECIFE UNITS CALLED FOR? 1.@5 
THGREDIENT S ; 

COST FOR BULK UNIT IN STORE? 1.49 

NUMEER OF UNITS IN BULit’ i 

HUMBER OF RECIPE UNITS PER BULK UNIT? 2 

NUMBER OF RECIPE UNITS CALLED FOR? .5 
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INGREDIENT G : 

COST FOR BULK UNIT IN STORE? .75 

NUMBER OF UNITS IN BULK? 3 

NUMBER OF RECIPE UNITS PER BULK UNIT? le 

NUMBER QF RECIPE UNITS CALLED FOR? 1 
INGREDIENT 7 > 

COST FOR BULK UNIT IN STORE? .40 

NUMBER OF UNITS IN BULK? -1 

NUMBER OF RECIPE UNITS PER BULK UNIT? 4 

NUMBER OF RECIPE UNITS CALLED FOR? .6666667 
INGREDIENT 8 ¢ 

COST FOR BULK UNIT IN STORE? .49 

HUMBER OF UNITS IN BULK? & 

NUMBER OF RECIPE UNITS PER BULK UNIT? i 

HUMBER OF RECIPE UNITS CALLED FOR? 3 
INGREDIENT 9 : 

COST FOR BULK UNIT IN STORE? .59 

NUMBER OF UNITS IN BULK? 1 

NUMBER OF RECIPE UNITS PER SULK UNIT? 1 

NUMBER OF RECIPE UNITS CALLED FOR? 1 
NUMBER OF SERVINGS? 6 : 


TOTAL COST FOR 4 RECIPE = $ 3 
COST PER SERVING = & .38 


CHANGE NUMBER OF SERVINGS (1=VES,0=ND)? 1 
NUMBER OF SERVINGS? ict 


TOTAL COST FOR i RECIPE = $ 3 
COST PER SERVING = # .@5 


CHONGE NUMBER OF SERVINGS (1=VES,0=ND)? 0 


EMD PROGRAM 


PROGRAM LISTING 


10 PRINT "RECIPE COST” 

20 PRINT 

33 REM - STATEMENTS 30 TO 180 REQUEST USER INPUT 

30 «PRINT "NUMBER OF INGREDIENTS"; 

40 INPUT W 

45 REM - LOOP TO REQUEST DATA FOR EACH INGREDIENT 

50 FOR I=1) TOR... ee er mr Re nen 
oe inceenic ee cote eR 
2:70 PRINI ". COST FOR BULK UNIT IN STORE"; 

80 INPUT GC - rs a 
30 PRINT " “NUMBER OF UNTTS N BULK"! 

400 INPUT UO > “ae 
‘410 PRINT " NUMBER GF RECIPE UNITS PER BULK UNIT s. 
‘$20 INPUT F or es 
(180 PRINT " NUMBER OF RECIPE UNITS CALLED FOR"; 

“140 INPUT R 

149 REM - SUM COST OF EACH INGREDIENT PER AMOUNT USED > 
150 P=P+C/U/FFER 

1460 NEXT I 


Ee Saas 
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470) «PRINT "NUMBER OF SERVINGS"; 

180 INPUT S 

190) PRINT 

199 REM - ROUND OFF COSTS TO NEAREST CENT, PRINT RESULTS 
200 PRINT "TOTAL COST FOR 1 RECIPE = S"s INT (P*L100+.5)/100 
210 PRINT “COST PER SERVING = S":INT(P/S*100+.5)/100 

220 PRINT 

a093 REM - CALCIILATE ALTERNATIVE PRICE. PER SERVING? 

P30 PRINT "CHONG NUMBER OF SERVINGS (15YES ,O=HO"S 

240 INPUT N 

250 IF Nei THEN 170 

260 END 

a A 

OPTION 


ith the operation of this program you ma 
line. The program changes n 


As you become familiar w 
mation required for each ingredient on one 
below. 

Exampie: 
Calculate the cost per serving of Strawberry Shortcake in t 


: cream. 


r 


7 RUN 
RECIPE COST 


NUMBER OF INGREDIENTS? 2 
INGREDIENT 2 7? 4.59,9,8-8.9 
INGREDIENT BF 243,4,15,.5.85 
INGREDIENT 3 ? 4 .24,5,8, 25 
INGREDIENT 4 * 29,1,96,1.E5 
INGREDIENT / F 4..49,1,8..5 
IGREDIENT © ? .75,1,12,1 
INGREDIENT 7 ? 40,4 ,4,.8566067 
INGREDZENT 8 7 49,451.93 


NUMBER GF SERVINGS? 8 


TOTAL COST FOR J RECIPE = $ &.41 
COST PER SERVING = # 2S 


CHANGE NUMBER OF GEPVINGS (1=VES,0°HO)° i 
NUMBER CF SERVINGS? le 


TOTAL. COST FOR 4 RECIPE = @® 2.41 


COST PER SERVING * # .e 
CHANGE NUMBER OF SERVINGS (12VES,O°NO)? © 


END FROGRAM 
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RT YEMEN eT ETMRAE TT PAES TET AE METER RTE | “ 


REM - OPTION 55-70 
PRINT 


FOR 


em 


REM 


_ REM 


REM 
REM 


END | 


I-i TON |. 
“ENTER C,U,F, Ro 


- 


— PRINT. 
INPUT. 3 Se 
REM - SUM COST OF EACH INGREDIENT PER AM 


"RECIPE COST" 
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WHERE Ce COST FOR RULK UNIT 
_USNUMBER UNITS IN BULK UNIT - 
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This prograrn calculates the error of closure and area of a plot for which a traverse of the perimeter is 
available. The program will also calculate how far North and East the end of an open traverse is from tts 
origin {the Northing and Eastirig). The local coordinates of the origin can be entered for an open traverse. 
Negative values of Northing and Easting are South and West, respectively. of the 0,0 origin of the survey. 


The individual fegs of the traverse may be either straight lines or arcs of circles. To compute the tra- 
verse, you must have the bearing and length of each straight leg. You also need the radius, bearing of 
chord, and lengih of chord (or radius, arc measure, and bearing of a tangent for each curved leg. 


For a closed survey, pick any intersection of legs as a Starting point and number the lines and arcs, 
starting with one, in a clockwise direction around the perimeter. If any are is 180 degrees or more. it must be 
broken into smatier arcs, each jess than 180 degrees. 


By convention, surveyors measure bearings East and West of North and South. as shown in the 
following figure. This convention was established in the days before computers, so that trigonometric 
functions could be easily looked up in tables not exceeding 90 degrees. For each Jeg, you must enter the 
quadrant number and the degrees, minutes and seconds East or West of the North-South axis. The pro- 
gram will indicate ine direction of the teg (2.g.. SW), and will convert the quadrant. degrees. etc. to an 
azimuth angle. Azimuth is ~neasured clockwise from North to 360 degrees. 


W 





Quadrant numbering scheme. Note angles 
Ss are measured from the North-South line. 


A curved leq, or are, is defined by two auxiliary legs. each of which is 4 radius of the arc. The bearing 
of the first auxiliary leg is the direction of the radius from the first encountered end of ihe arc to the center 
of the arc. You can compute this bearing from the bearing of the arc’s tangent at that point, since ihe 
radius is perpendicular to the jangent. The survey may show the bearing of the tangent lf not. you can 
compute it by adding one ralf the angular extent of the arc to the bearing of the arc’s chord, as shown in 


the nexi figure. 
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; / Tangent 
Bearing of Tangent = Gearing of Chord + 5 
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The bearing of the second radius is from the center of the arc to the other end, and the distance Is en- 
tered as a neyative number to signal to the computer that this and the prior leg are not perimeter legs, but 
auxiliary legs of an are. 


The program asks you for the bearing and distance of each leg by number. Legs are entered in sets of 
ten (or Jess}. Following the iast entry in aset you can correct any leg in the set. You must enter both auxili- 
ary legs of an arc in the same set. You can enter a bearing of zero to end one set. and then enter more legs 
on the next set. 


When you have corrected a Set, a traverse table is printed for the set. This includes each leg number, 
direction, azimuth angle and distance. and incremental and cumulative Northing and Easting. The cumula- 
tive Northing and Easting after the last leg on a closed survey gives the error of closure. Arc angle, radius, 
sector area. chord length, and tangent length are printed between the two auxiliary legs of each curved 
leg. 


Following the printout of the last leg of a closed survey, the area of the plot will be printed, both in 
square feet and in acres. The area computed is very accurate provided two conditions are met: 


1) the error of closure is small (0.01 feet is usual for a house tot), and 


2) the area is sufficiently small that curvature of the earth does not become significant Surveys covering 
several tens of miles have to account for this latter factor. 


Example: 


The figure below illustrates the boundaries of a lot with one curved side. The leg numbers are circled. 
Bearings and distances are shown for each teg. Find the error of closure and fot area. 


© @ $39°0"E 
149.83 

S39°0"E 
50.09 
N85°23'63"W 
50.00 

(@) N85°23'53"'W 
114.32 

G) W1°5'0"E 
132.78 

(6) N46°0'0"E 
14.00 

@ $89°0'0"E 
25.46 





178 


: sowie pang ey er ermpesee eee ner sme al — per we reper nT 
eee mere aS RE TLE SMW RRQ TTS Late 2 Lop Re Mn ng a Oo Se ef ATT Mt nye TERY ea A Ca ete Tages a nr A A athe Ca Stas APART 5 FER 


cote cee cance ARERR fat ne Some LE i ge Seat saat ee rae mea Ee GRAS aan ne a onk + cece waty Mme Aas lh hme Gy pale th ee A 


tRUN 


MAP CHECK - SURVEY CLOSURE & AREA 


OPEM (1) 


DISTANCE 


‘LEG NO. 
DISTANCE 


‘LEG NO. 
‘DISTANCE 
LEG NO: 
“DISTANCE 
‘LEG NO. 
[PISTANCE 
‘LEG NO. 
DISTANCE 
“LEG NO. 
(DISTAHCE 


4 
' 


CORRECT WHICH LEG IM THIS SET (0 


TLEG/DIR. AZIMUTH/DIST. DEL H/DEL E 
' 4 SE 441 6 0 # 149.83 ~£16.44 / 94.291 


LEG NO. 


cm /SE 

ARG: 
a /tus 
re tt 
S /NE 
6 /NE 


7 «(SE 


NEXT SET 
LEG NO. 


ag PS SS Re 50 A= G00Q4.497 C= 39.398 T= PI.4E9 

O74 GG 7 / BO 4.012 /-49,889 -151.285 / 75.948 
aye 86 7 ¢ 414.32 9.472 /-112,951 -i14@.113 /-35.053 
1 4 GO ¢ 1382.72 132.756 / 2.51 ~9.357 /-35.523 
46 9 O / I4 | 9.725 / 10.071 868 /-Rh.452 


94 0 OO / 25.46 


Of CLOSED (0) SURVEY? 0 

OF LEGS: 

1 : QUADRANT , DEGREES ,.MINUTES ,SECONDS? 
IMCOATIVE TE OUTWARD RADIUS)? 149.83 
2 «QUADRANT ,DEGREES MINUTES ,SECONDS? 
(NEGATIVE IF OUTWARD RADIUS)? 50 

m QUADRANT , DEGREES ,MINUTES , SECONDS? 
(NEGATIVE IF QUTWARD RADIUS)? ~50 

4 ‘QUADRANT ,DEGREES , MINUTES ,SECONDS? 
GHEGATIVE IF QUTWARD RADIUS)? 114.32 
5 ‘QUADRANT , DEGREES ,MINUTES ,SECONDS? 
(NEGATIVE IF QUTWARD RADIUS)? 132.79 
& * QUADRANT , DEGREES , MINUTES ,SECONDS? 
(MECATIVE LF OUTWARD RADIUS)? 14 

v7 ‘QUADRANT ,DEGREES ,MINUTES ,SECONDS? 
(NEGATIVE IF DUTWARD RADLUS)? 25.46 
& *GUADRANT , DEGREES , MINUTES, SECONDS? 


44 OG @ / 5 


(OaMY MORE LEGS (i=VES, O=NMG)? O 


] 


PLOT AREA IS 3747,.693 SQ. FT. 


PLOT AREA IS .s0G42064 ACRES 


STOP 


2,39,0,0 
2,39,0,0 
4,85,23,53 
4,,85,23,53 
1,1,5,0 
1,46,0,0 
2,99,0,0 


0,0,0,0 


=NQO MORE CHANGES)? 0 


NORTHING /EASTING 


G6 / Q 


~ 444 / 25.456 -7,.G0E-0e / 4,0E-03 


ie ao ee A a Gih, aafsstes ee tte ty 
fe coamh ack ca esac ag dt ane a SR Oe ats a oe 
she ae 


-116.44 / 94.e91 


Ve CR ANE ER ae bees 


“38,857 / B1.46G -155.297 / 125.757 
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PROGRAM LISTING 


200 
210 
230 
240 
260 
a70 
e279 
PRO 
285 
290 
2300 
303 
319 
S15 
320 
330 
340 
350 
360 


180 


REM ~ MAP CHECK & AREA OF PLOT 

REM ~ FOR CLOSED SURVEY FOLLOW TRAVERSE CLOCKWISE 
REM - KEEP PLOT TO RIGHT OF EACH PERIMETER LEG 
REM ~ COMPUTE AUXILIARY LEGS AS RADII AT EACH 


REM ~ END OF ARC. ARC < 1806 DEGREES 
REM 

REM - VALUE OF PI 

P1=3.141592654 

REM - 0 = NO. OF LEGS PER SET 

KO=10 

DIM B(10),L 410) 


‘REM ~- COS CONTAINS ‘CLEAR SCREEN’ CHARACTER 


COS=HEX (03) 


REM - FNROX) ROUNDS * TO 3 DECIMAL PLACES 


DEFENR (X) =INT (X#10004+.5 271000 

REM - R IS CONVERSION FACTOR FOR DEGREES TG RADIANS 
R=1.745225251E-e 

PRINT COS: "MAP CHECK - SURVEY CLOSURE & AREA” 
PRINT “OPEN (41) OR CLOSED {0) SURVEY"; 

INPUT F 

IF F=0 THEN 120 

PRINT "ORIGIN: NORTHING ,EASTING"; 

INPUT HE 

PRINT COS: "NEXT SET OF LEGS: " 

G=H 

FOR Ket To KO 

REM - INPUT BEARING AND DISTANCE FOR NEXT LEG 
GOSUS 2000 

REM - IF BEARING IS G, END INPUT FOR THIS SET 

TE @*=0 THEM 170 

G=G7+1 

GOTO cae 

REM - ZERO UNUSED LEGS IN THIS SET 

IF KekQ THEN 30 

FOR J=K+i TO KO 

B(J)=0 

L¢J)=90 

NEXT J 

K=KO 

NEXT K . 
PRINT "CORRECT WHICH LEG IN THIS SET (O=NO MORE CHANGES) "5 


INPUT K 


REM ~ NG CHANGES IF Q INPUT 

IF K=O THEM S10 

K=K-H 

GOSUR 2000 

GOTO #650 

REM - COMPUTE VALUES AND PRINT TRAVERSE TABLE 
PRINT | 

PRINT "LEG/DIR. AZIMUTH/DIST 2" 

PRINT * DEL N/DEL E NORTHING /EASTING ” 
PRINT 73 aPNR (id) 3 a site sENR {E) 

PRINT 

FOR K=i TO KO 

Lisl tk> 
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3639 
370 
380 
288 
399 
290 
400 
410 
420 


4O3. 


430 
440 
449 
450 
460 
470 
460 
450 
500 
510 
520 
520 
540 
550 
560 
570 
5a 
BOO 
600 
G1id 
6c 
G30 
640 
650 
650 
&70 
Seo 
690 
700 
710 
720 
7236 
740 
750 
760 
779 
780 
7390 
800 
Bid 
B20 
829 
630 
B40 
950 
§60 
B7G 


MEM ~ CHECK FOR ARC 

IE £1<0 THEN 1100 

IF Lis0 THEN 900 ; 

REM ~ COMPUTE NORTHING / EASTING INCREMENT (CONVERT 
PEM - GEASINGS FROM DEGREES TO RADIANS ) 
LeL(KJ#COS(B(KIFR) 

Deal (KISSIN (BCKIFR) 

HMaherk 

HsE+D 

REM - INCREMENT AREA 

AsA-E*L+NaD 

PRINT Htks "7 "5 

pry ~ FROM BESRING, DETERMINE DIRECTION 
Le B(K)=0 THEN 470 . 
GOTO 490 

PRINT "N"3 

GOTO 8326 

IF B(K)<GO THEN 510 

GOTO S30 

PRINT "NE“S 

GOTG 830 

TF B(K)=90 THEN 550 

SoOTG S76 

PRINT "“E "3 

GOTO B82o 

TE BCK)<280 THEN 590 

COT E1G 

PRINT "SE" 

GOM 286 

TE CK }ei80 THEN 630 

GOTH ShG 

PRINT "S "3 

GOTQ B20 

TE BCK)<@70 THEN 670 

cora 650 

PRINT "Sul" 

GOTG 39 

LE BtK)=270 THEN 710 

GOTG 7320 

PRINT "We ts 

GOTG e83o 

Te Bwes<260 THEN 750 

GOTUd 775 

PRINT "NWS 

GOTQ 830 

{FE BK) =260 THEN 790 

cOTa &19 

PRINT "HN o"3 

GOTG 830 

BK} SB) 350 

ecTa 4506 

REM ~- BREAK BEARING iNTO DEGKEES, MINUTES, GECONDS 
DLs INtT(aik}) 

Mie (B(K) “DL #60 

Many (4a 

SoINT ( (41-M)#GO4 5) 

PRINT " "2DLIMiSs "/°5FNRG. (KY) -FNR LS 
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880 PRINT "/"3FMR(D)SFNR(N) 3 "/";FNR(ED 
885 PRINT 

890 LK) Ld 

500 NEXT K 

9160 H=G 

970 PRINT “ANY MORE LEGS (1=YES, O=NO) "5 
9230 INPUT U 

940 IF U<>0 THEN 120 

349 REM - HO AREA FOR OPEN SURVEY 

950 IF F<>0 THEN 1000 

960 A=ABS(A/2) 

970 PRINT "PLOT AREA I5 "SENR(A); "SQ. FT." 


980. PRINT 
990 PRINT "PLOT AREA I5 "TNT (A/43560* 1 EB8+.5)/1E8; “ACRES” 
1000 STOP 


1099 REM ~ CALCULATE CURVED LEG AMD Peal ON TRAVERSE TABLE 
4100 C=ABS(B(K)-B(K-1)) 

1110 C=ABS(iBO-C) 

1120) 6De-tLi 

11350 L«kKd=D 

1140 AiL=C/1LBOFPLi*FD*ED 

1150 Cil=2#DFSIN(C/2*R) 

1160 T=D#TAN(C/2*#R) 

L170 BS=BC(K)-H(K~-2) 

4180 IF B9<-180 THEN 1250 

41190 IF B9>180 THEN 1210 

3P00 TF BS>0 THE 12350 

1210 A=A+AL 

122006 6©«GOTO (1240 

1230) A=A-Al 

1240 DAsXNT(C) 

$PSO0 Mis(C-D1)*60 

$260 M=INT (Mid 

1270 SHIN ((Mi-M) #604 .5) 

1280 FRINT * ARC: "*DirmMiSs"R="sFNRID); tA=s"*ENR(ALIS "CR", 
1290 PRINT FNR(CLIS“TH"SFHRCT) 
1300 PRINT 

1220 6©6GQTO) 603590 

4999 REM - INPUT DATA FOR ONE LEG 
2000 Bik)=0 

2610 LK) =0 

2020 PRINT "LEG NO. tebe "2 QUADRANT | DEGREES , MINUTES ,SECONDS "5 
P0380 INPUT @.D,N,S 

2040 IF @=0 THEN 2270 

2050 IF Q>4 THEN 2020 

POGO IF @<O0 THEN 20C0 

2070 IF D<O THEN 2020 

2080 IF M<O THEN 2020 

29090 IF $<0 THEN &0r0 

241900 E(K)=D+(M+S/60)/60 

2410 IF B{K)>90 THEN e020 

P1270 IF @=i THEN 2220 

2130 IF @=@ THEN #150 

2140 GOTO 2170 

2150 Bik) =180-B(K) 

2160 GOTO eceeo 

P2170 IF Q@=3 THEN £190 
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2180 
2190 
2200 
2210 
2215 
F220 
2250 
2246 
2250 
2270 
9939 


GOTO eeio 

EM yRLBO+B(K) 

GOTO eee2o 

IF @<>4 THEN &ecd 

BK) =S60-R(K) 

PRINT “DISTANCE (HEGATI VE 
INPUT LCi) 

IF L(K)>0 THEN &270 

iF AEBS (L.(K) ) <?ABS IL (Kd 2? 
RETURN 

END 
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Day of the Week 


ee 











This program calculates tho day of the week that a given date falls on. It will figure, for example, that 
December 25, 1980 will be a Thursday. 


You must enter the date in numeric form and in the order of month, day, year. September 12, 1975 will be 
entered as 9, 12,1975, making certain that commas, not slashes or dashes, separate the figures. 


Examples: ; 
Cindy's birthdate is March 4, 1953. On what day was she born? 


‘Uncle Lon has an appointment on September 30, 1977. What day is that on? 


: RUN 


DAY OF THE WEEK 


(ENTER 0,0,0 TO END PROGRAM) 
MONTH, DAY, YEAR? 3,4,1953 
WEDNESDAY 


MONTH, DAY, YEAR? $,30,1977 
FRIDAY 


MONTH, NAY, VEART 0,0,0 . ‘ 


END PROGRAM 


PROGRAM LISTING 


20 
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PRINT "DAY OF THE WEEK" 

PRINT 

REM ~ REQUEST USER INPUT 

PRINT "(ENTER 0,0,0 TO END PROGRAM)” 

PRINT “MONTH, DAY, YEAR" 

INPUT M,D,Y 

REM - TEST FOR END OF PROGRAM 

IF M<>?0 THEN 100 

IF D<>0 THEN 100 

IF ¥<30 THEN 100 

COTO 360 

REM - NEED TQ ADJUST INPUT FOR CALCULATIONS? 

IF M>B THEN 130 

REM ~- ADJUST INPUT 

MaiM+12 

VaY~4 

REM - CALCULATE DAY NUMBER 

NeD+QemMtInt (.G% (M+) )4V4INT (¥/4) INT (Y/100)+INT(Y/400 ) 42 
NSINT ((N/7-INT(N/7) #7465) 

REM ~ FIND CORRECT DAY NUMBER, TRANSLATE TO DAY, PRINT 


IF N>0 THEN 180 


PRINT "SATURDAY ® 
GOTO 3240 


tt ed ee ee TRA ts Se Lends Ea ae elie Bi tal Aaa ae wn ee, TA AS PE at 
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tw 
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180 IF NoL THEN e210 


190 PRINT "“SUNOAY" 
200 GOTO 240 


Pi0 IF N?2 THEN 2&40 


220 PRINT “MONDAY” 
230 GOTO 340 


e240 IF NOS THEN #70 


250 PRINT "TUESDAY 
P60 GOTO 340 


P70 IF N+4 THEN 300 


280 PRINT "WEDHESD 
2390 GOTO 340 
300 IF N?5 THEN 


AY i 


330 


3410 PRINT "THURSDAY" 


320 6GOTO S40 
330 PRINT "FRIDAY" 
3490 PRINT 


349 REM - RESTART PROGRAM 


350 GOTO 40 
360 END 
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Days between Two Dates 


cre NT 








Ce eiaad 


This program calculates the number of days between two given dates. Leap years are taken into account. 
The prograrn assumes thers is one day between today and tomorrow. For instance, there are two days between 
March 1 and March 3 of the same year. i 


There are a few precautions to assure the proper use of this program. First, you must be certain to enter the 
earlier date first. Second, dates must be entered in number form (3, not MARCH } and in the correct order 


~ (month, day, year, 1-€., 


3,17,1976 _). Commas, not slashes or dashes, must separate the figures. Third, the 


year must not be abbreviated (1976, not 76), even if both dates are in the same century. Finally, the month en- 
tered must not be greater than 12 and the days no greater than the number of days in the particular month. If 


such is the case, the message 


fsuch as 6 14,32,1975 


Exampie: 
John’s birthdate is August 8, 1951. How many days old will he be on his 30th birthday? 


+ RUN 


UNREAL DATE is printed to alert you to the fact that an unreal date 
} has been entered. An incorrect answer is likely to result. 


DAYS BETWEEN TWO DATES 


FIRST DATE? 8,8,1951 
SECOND DATE? 8.8,1901 
DIFFERENCE 


109850 DAYS 


HORE DATA (1L=VES, O=NO)? 0 


EHD PROGRAM 


PROGRAM LISTING 


10 
20 
29 
3G 
40 
50 
60 
69 
79 
BO 
99 


pioo — 
109 


110 
119 
120 
130 
1490 
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PRINT “ 


PRINT 
REM - 
PRINT 
INPUT 
PRINT 
INPUT 
REM - 
Meh 

D=D1 

YeVi 


GOSUB 


REM - 
N=A 
REM -- 
M=M2 
D=De 
Y=V¥2 


cece ana RTA RA ER ME RT LE TERT 


DAYS BETWEEN THO DATES" 


STATEMENTS 3O TO 60 REQUEST USER INPUT 
"ELRST DATE": 

M1 ,Di,Y2L 

"SECOND DATE” 


Me ,de,Ye 
GET VARIABLES TO BE USED IN SUBROUTINE 


GiVE COMPUTED NUMBER OF DAYS IN N 


GET VARIABLES TO BE WSED IN SUBROUTINE 


eT eae oe a same ATS eee et ee a a) ERE EE TEEN I EE 






ee 


59 
_ 160 
,170 
+180 
“489 
190 
200 
B10 
219 
220 
2a7 


2)-]: 


ceo 


aR 


239 
2490 
45 
eG 
259 
B50 
270 
272 
30 
290 
300 
209 
319 
epee 


' 380 
389 
| 320 
— 409 
~ 410 
420 

428 
“a9 
4:30 
«AAG 

— «B49 
— 459 


GO5UB 230° 

SEM = CALCULATE DIFFERENCE AND PRINT 
N=A-H 

PRINT “DIFFERENCE ="3N3 "DAYS" 

PRINT 

REM - RESTART OR END PROGRAM? 


PRINT "MORE DATA (4=YES, OFNO)"S 
INPUT X 

IF Xx=i THEN 20 

REM - END PROGRAM 

GOTO 


sana a vn inc ad ON Ee 


460 
PEM - SUBROUTINE TO COMPUTE NUMBER OF PAYS SINCE 0,0,0 TO.MDsY. .. 


REM - START WITH TEST FOR UNREAL DATE ak te oe 
mem ~ GO TO CORRECT TEST DEPENDING GN MUIMBER OF DAYS IN MONTH 


mi M GOTO B60 , 220 , B60 , 340 260 , B4O . 260 , BGO , G40 


260 , S40 , 260 


REM ~ IF THIS MESSAGE IS PRINTED THE ANSWER Im PROBABLY INCORRECT 


PRINT “UNERAL. BATE" 

REM « STOP CAL CULAT TONS 5 RETURN TO MA&CN PROGRAM 
RETURN 

CEM - MOMTN HAS 31 DAYS 

4 DBL FEN PAO 

GOTO 256 

REM - MORSTi ba ERERUGRY | A LEAP YEAK’ 

Te Vs CPINT CSA? THEM GLe 

TE OY sAQO SIT CY /4003 THEN he 

Le WALCO STMT OY 24007 VHEN Seo 

hacee = NIT LEAP VEERY MONTH HAS 2G DAYS 
IF DeRG THEN L4G 

REM - A LEAP yEam: MONTH HAS 29 DAYS 


ueo IF DBS THEN &40 
sag SOTO B80 | 
ya REM - MONTH HAG SO DAYS 
340 TF D>2ZO THEN 280 rs ee | oo. 
“343° REM - TABLE OF NUMBER OF DAYS FROM 187 OF YEAR TO JST OF EACH 
TH 
350 DATA 9 31 ,59,90 120,154 181 B12, BAS 273 1206 Soh 
360 RESTORE 
‘365 FOR Hei TOM 
365 REM - GET NUMBER OF DAVS FROM JAN 1 TQ 1ST OF MONTH FROM DATA 
LE 
370 READ A 
375 NEXT H 
379 «REM - COMPUTE NUMBER OF DAYS FROM 0,0,0 TG M.-Y 


Ree EVHRGSHINT (V/4)4D4L “INT (¥/100)41NT (Y/400) 
REM ~ POSSIBLY A LEAP YEAR? 

LE ENT OY /49 6247/4 THEN 450 

REM - CONTINUE TEST FOR LEAP YEAR 

IF Y/400=INT (Y/4003 THEN 430 

IF V/L008INT(Y/100) THEN 450 

REM - YEAR IS A LEAP YEAR; 

REM - IF MONTH 1S JéN OR FER ADJUST CALCULATED NUMBER OF DAYS 
LF 08 THEN 450 

A=A~L 

REM - END OF SUBROUTINE 4 RETURN TO MAIN FRAGRAM 
RETURN 

END 


‘ 
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OPTION 


To shorten this program you may wish to omit the test for unreal dates, It should be noted that if a month 
of more than 12 is entered when this test is omitted, an input error will result. The program lines which may be 


deleted are listed following the example below. 


Exampie: 
How many days are there between July 4 and Christmas? 


2 RUN 
NAYS BETWEEN TWO DATES 


FIRST DATE? 7,4,1977 
SECOND DATE? 12,25,1977 
DIFFERENCE = 174 DAYS 


MORE DATA (1*YES, O=NO)? OG 


END PROGRAM 


PROGRAM LISTING 
10 PRINT "DAYS BETWEEN TWO DATES" 


seo tt Oe ae Pe 


Alon 


140 DE fat 1. RT 
450" _ SOSUe : “850 
159 REM - CALCULATE DIFFERENCE AND PRINT 


227 REM ~ SUBROUTINE TO C1. IMPUTE NUMBER OF DAYS SINCE 0,0,0 TO M,D,Y 


[(Delete lines 228 - 340) * 


ee 


TH 


460 END 
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349 REM - TABLE UF NUMBER OF DAYS FROM 1ST OF YEAR TO 1ST GF EACH MON 


Tay eS a Te, Se MT Par ce ro eT TE 
ies TMS TATIONS IM SPE ee Sell he oa cat in a 





Boer ., potest ita al isan iat nin lt RE - ee mejen Pia ate Rta eee tani abe HE ala a spancktctt Sinha me iret daeecu ke 


Anglo to Metric 
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5 This program converts a measure given in anglo units to metric units. The conversions available in this pro- 
i gram are as follows: ; 


"4 Inches to centimeters 
2 Feet to centimeters 
- 3 Feet to meters . 
4 Yards to meters 
5 Miles to kilometers 
6 Teaspcons to cubic centimeters 
7 Tablespoons to cubic centimeters 
8 Cups to liters 
9 Pints to liters 
10 Quarts to liters 
11 Gallons to liters 
12 Bushes to iiters 
13 Pecks to liters 
14 Ounces to grams 
15 Pouncs to lalcgrarms 
16 Tons to kKiogramec 
17 Degices Sahrenheit to degrees Celsius 


ere te 


BRE hd Ww ae! 
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i You must arovide the value of the anclo measurement and the number of the conversion (1 - 17 as listed 
above) which vou wish to perform. 


Example: 
Perform the following conversions: 


8.5 miles to kilometers 
75° Fahrenheit to degrees Celsius 
10 gallons to liters 


IN | 2 RUN 
"ANGLO TO METRIC 


(TO END PROGRAM ENTER 0) 
WHICH CONVERSION DO YOU NEED? 5 
VALUE TG BE CONVERTED? 8.5 
8.5 MILES = 13.6765 KILOMETERS 


WHICH CONVERSION bo YOU NEED? 17 
VALUE TO BE CONVERTED? 75 
45 DEGREES FAHRENHEIT = 23,R86986888889 CELSIUS 
WHICH CONVERSION DO YOU NEED? if 
VALUE TO BE CONVERTED? 10 
10 GALLONS = 37.85 LITERS 
WHICH CONVERSION DQ vou NEED? 0 


END PROGRAM 
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PROGRAM LISTING 


10 PRINT "ANGLO TO METRIC" 

20 PRINT 

29 REM - ESTABLISH VARIASLES FOR 17 CONVERSION FACTORS 

30 DIM Ci17) 

39 REM ~ LGOP TO ASSIGN CONVERSION FACTORS INTO CC ) 

40 FOR N=1 TO 17. 

50 READ C(N) 

60 NEXT N , | 

69 REM - DATA TABLE OF SEVENTEEN CONVERSION FACTORS 

70 DATA 2.540,30.480,.3048,.9144,1.609,4.929,14.788, .2366, 4.732 
BO DATA .9463,3.785,35.24,8.809,28.3495,.4536,907.2, .6214 
89 REM ~ GET NUMBER OF CONVERSION FROM PROGRAM DESCRIPTION 


Pee 2 


390 PRINT “(TG END PROGRAM ENTER 0)" 
100 PRINT "WHICH CONVERSION DO YOU NEED"; 
110 INPUT N 
119 REM - END PROGRAM? 
120 IF N®0 THEN 540 
129 REM - CONVERSION AVAILABLE? 
430 IF N>i7 THEN 100 
140 PRINT "VALVE TO BE CONVERTED"; 
450 INPUT I 
159 REM - PERFORM CONVERSION USING PROPER CONVERSION FACTOR 
160 R=IT#*C(N) 
169 REM ~ DIRECT PROGRAM TG PROPER CONVERSION UNITS, PRINT RESULTS 
170 ON WN GOTO 180 , 200 , a2o0 , B40 , C60 , 280 , GOO 
360 , 38O ; 400 , 420 , 440 , 460 , 480 , 500 
180 PRINT Is "INCHES ="sR; "CENTIMETERS" 
190 GOTO Sed 
@00 PRINT I: "FEET ="3R} "CENTIMETERS" 
Bio GOTH Seo 
220 PRINT I7"FEET ="3R5 "METERS"® 
: 230 GOTO SR0 7 
240 PRINT I: "YARDS ="'R? "METERS" 
250 GOTO 5e0 
260 PRINT I3 "MILES ="5R3°KTLOMETERS" 
270 €OTO 520 
280 PRINT I;"TSP. ="3R; "CUBIC CENTIMETERS" 
290 GUTO Seo |. 
300 PRINT L:i"THSP. ="s3Ry "CUBIC CENTIMETERS" 
310 GOTO 520 
S320 PRINT Is "CUPS ="5R3 "LITERS" 
330 GOTO S20 
340 PRINT I; "PINTS ="3R; "LITERS" 
350 GOTO S20 
360 PRINT I: "QUARTS ="7R3 "LITERS" 
370 GOTO Seo 
3B0 PRINT I: "GALLONS =" Ry "LITERS" 
390 GOT6 520 . 
400 PRINT Ls "BUSHELS =";R; "LITERS" 
410 GOTO 5e0 
420 PRINT Is"PECKS ="$R; "LITERS" 
430 GOTO Seo 
: 440 PRINT Ti "OUNCES ="5Rs3 "GRAMS" 
450 GOTO 520 
- 460 PRINT I; "POUNDS ="5R3 "KILOGRAMS" 
190 
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470 GOTO 5Se0 | 

480 PRINT I: "TONGS ="sR;"KTLOGGRANS" 

496 GOTO Seo 

499 REM - CONVERT FROM DEGREES FARENHEIT TO CELSIUS 
500 Re(Ll-3B2)*5/9° 

S10 PRINT I:"DEGREES FAHRENHEIT ="sR; "CELSIUS" 

520 PRINT 

529 REM - RESTART PROGRAM 

530 GOTG 100 

540 . END | 
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This program alphabetizes a list of words or phrases. 


Numbers may be part of an alphanumeric phrase. However, they will not be put into numeric order unless 
they contain the same number of digits. Numbers with fewer digits must be justified to the right by prefixing 
zeros. Thus, if the numbers you are sorting range ‘nto the hundreds, the number 13 would be entered as 013. 


To save memory space, the array at statement 70 should be limited to the maximum number of terms you 
wish alphabetized. The dimension statement should be altered in the following manner: 


70 DIM ASIN) 


where NV = the number of items to be alphabetized. 


Example: 
Alphabetize the following names: 


Robert Wilson 
Susan \V. James 
Kent Smith 
Michael Mitchell 
Ann T. McGowan 
Alexander Lee Ii 
Mary Wiitchell 
David Howars 
Stevan Evans 
Caro} Jameson 
Linda North 


£70 DIM ASCL1) 
> RUN 
ALPHABETIZE 


(TO END PROGRAM ENTER 07} 
NUMBER OF XTEMS? it 
ITEM i ? WILSON ROBERT 


LTEM @ ? JAMES SUSAN i. 
ITEM 3B ? SMITH KENT 

ITEM 4 ? MITCHELL MICHAEL 
ITEM S 2? MCGOWAN ANN T. 
ITEM 6 ? LEE ALEXANDER il 
ITEM 7 7? MITCHELL MARY 
ITEM @ 7? BOWERS DAVID 
ITEM 9 ? EVANS STEVEN 


ITEM 10 ? JAMESON CAROL 
ITEM 14 7 NORTH LINDA 
BOWERS DAVID 

EVANS STEVEN 

JAMES SUSAN WW. 

JAMESON CAROL 

LEE ALEXANDER IL 
MCGOWAN AMM T. 


192 


pote Ne Aa EEN SEIMEI IME GEE TERETE TA HI ar eR ee LIRR NITE TORE EEL oR eT SPR aI Date nie 7 
; rere 


—_-— 





MITCHELL MARY 
MITCHELL MICHAEL 
NORTH LINDA 
SMITH KENT 
WILSON ROBERT 


NUMBER OF ITEMS? 0 


END PROGRAM 


PROGRAM LISTING 


10 PRINT “ALPHABETIZE" 

i 20 PRINT 

30 PRINT "(TO END PROGRAM ENTER 0)" 
: 40 PRINT “NUMBER OF ITEMS" 
"600 INPUT N 

60 IF N=0 THEN 330 











i 69 REM -LIMIT ARRAY TO MAXIMUM NUMBER OF ITEMS TO BE ENTERED IN ONE RU. 
, 70) «6DIM AB(AS) 
: go FOR I=i TOR 
99 PRINT "ITEM'S IT3 
100 INPUT ABCD) 
140 WNEXT I 
120) MEN 
128 REM - THE SORT TECHHI QUE USED COMPARES DATA ITEMS IN DIMINISHING Phe 
REMENTS. 
{@5 REM ~- THE FIRST PASS COMPARSS ITEMS N/@ ELEMENTS APART, THE SECOND 
(N/2)/B ELEMENTS APART, AND SO ON WNTIL THE INCREMENT IS EXHAUSTED » 
130 MHINT(N/2) : 
140 LE M=0 THEN &89 
$50) K=N-M 
160 J=1 
1700s I= 
1BO LETHM  eminpapcngeie 
PR y90° TF AS(T)<#AS(L) THEN. Ba0. 3 
200 TeeAS (I? 
210 AS (I) =AS(L) 
2290 ASL) HTS 
e360 rsI-M 
oaQ LE Losi THEN 180 
eso J=J+i 
360 IF J>K THEN 130 
27006 GOTOCL 70 
230 FOR I=i TON 
290 PRINT A&(T) 
300 NEXT I 
310 PRINT 
3206 GOTO 40 
330 END 
ne 
OPTION 
You may wish your fist alphabetized in reverse, OF from highest to lowest. The program changes necessary- 
are listed following the example below. 
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Exam 


pie: 


The scores on a math test range from 82 to 117. Put the students in order according to their scores, from 
| highest to lowest, : 


270 


~ § RUN 


AL.PH 


89 Bowers 
102 Evans 
111 James 
100 Jameson 
99 Lee 

_ 417 McGowan 
102 Mitchell 
82 Mitchell 
97 North 
91 Smith 
108 Wilson 


DIM AS(11) 


ABETIZE 


(TO END PROGRAM ENTER 0) 


NUME} 
ITEM 
ITEN 
ITEM 
ITEM 
IThM 
ITEM 
LITEM 
ITEM 
ITEM 
ITEM 
ITEM 


ER OF ITEMS? 11 
08S BOWERS 
102 EVANS 
111 JAMES 
100 JAMESON 
09S LEE 

Li? MCGOWAN 
102 MITCHELL 
O82 MITCHELL 
? O97 NORTH 

10 7 O81 SMITH 
13 7 208 WILSON 


Ooms ou + & We 
Wow ca ad at od ed 


117 MCGOWAN 


Lit 


JAMES 


108 WILSON 
102 MITCHELL. 
102 EVANS 
100 JAMESON 
699 LEE 

097 NORTH 


O91 
O39 
082 


NUMB 
END 


SMITH 
BOWERS 
MITCHELL 


ER OF ITEHS? 0 
PROGRAM 


PROGRAM LISTING 
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_ THEN 250. | 


1 REM - OPTION 130 
10 PRINT "ALPHSBETIZE” 
180 Lith on sigtueosasis one 5 
F490 IF AR(T) SARL) 
_ B00 TSRAS(L) 
330 END 
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